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Abstr««| 



Director it a programming language deugned fcr dynamic graphics, artificial intelligence, and 
naive users, ft 1.1 based upon the acler or pbj«t oriented ippnuct, to programming and resemble* 
Art I and SmallTalk Director e«*ndi MaeLisp by adding a small ,et of primitive actor, and the 
ability to create new ernes, m graph.al f> iCur „ inc j u de an interface to the TV turtle, 
pseudo parallelism, many animation primitives, and a primitive actor for making and recording 
'movies.: Fur artificial intelligence programming Director provides a patterned Irected data bate 
ablated with each actor, an inherence hierarchy, pseudo -parallels, and a means of 
conveniently creating r, on -sta nda rd central Itructurei For use by relatively naive programmer. 
Director is appropriate hxauu of it* *tr«s upon very- powerful, yet conceptually simple primitives 
and its verbose, *, mp k syntax based upon pattern matching. Director code can be turned into 
optimized Lisp which in turn can be compiled Into machine code. 



The author of rhLl work it currently jupported by an IBM Fellowship. The research described 
herein isl be.ng conducted at the Artificial InttlUgtnn Laboratory, a Massachusetts Institute of 
Technology research program. 
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I. The General Idea 

Director is an actopbased extension af Maclisp and is described in Al Working Paper 120. 
[Kahn 1976] This document is intended to help you use it. 

WhilE tiiuchi of die work described hErE is intended for a graphics audience (describing 
much Simpler arid more intuitive ways of thinking about graphics and animation), much of it 
■should be of interest to anyone interested in actors. Graphics is an ideal domain to test out 
different styles of message passing in a way that il cortmeie. A face telling its mouth to imile 13 
pedagogical!? a mucin better example than a number being told in multiply by th* result of 
factorial being SEnt the result of that number being asked to subtract one. 

The language Is alio usable as an A I lanf uage, Each actor has rather sophisticated abilities 
including inheritance, a relational database with demons, and a pseudo-parallel! control structure. 
The language is currently grafted upon Maclisp, so that Jr> addition to lists, atoms, numbers, 
lambda expressions and other Lup entities, Director provides actors and, a few primitives For 
manipulating them, This implementation strategy was one of necEuity and many of Director'* 
deficiencies would disappear were it built upon an Actor language such as Act I. 
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II. An Introductory Example 

To get a general impression of what Director is all about try the following the next time you 

are logged into M on a TV (if j™ want to try It without graph ie& read the "Getting Started" 

section). Start op the system by typing 

:direct <carriage return^ 

| Welcome to IM rector Version i 39 \ ;; H whith point l>ire(for is ready for Instructions 

(as-V poly make pent) ',; male a polygon -named pent 

(asfc pent show) l5 a default pulfgojt (a hexagon) should appear 

(ask pent set your angle to. ll\ ;; it should ntw took like a pentagon 

(ask poly make star) ;; mak* another poly named star 

(ask star set your angle to 144) j; set its angle to 144 

(ask star srsow) ;; finally osk it to show 

(ask Star forward 200) ;■ aik star tit go fcmatd ZOO steps 

(ask star grow jJEO) ;; &ik the Star to become 290 units forger 

(ask star print) ; ; if you, aie curlnus about &/&t Stat ktUutt try printing it 

At this point, you might want to play around. If the typing is too much for you there are 

abbreviated version* of nearly all the messages. For example typing. 

task star ftsypt (200 - 100) ) ;; it the tame as typing 

(ask star set your position to (200 -100)) 

; Which means go to the point 200 units qwt and 100 down pom the center 

A list of all the abbreviations is in the index it rtie end of this document. 
To make a little movie type the following 
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(ask star plan next gradually shrink 300 ] 

; j jforf iiouri^ j*T(n*fef beginning iwifA ffia iqrar tfJdci tick 

(ask star plan n«<L gradually left 90} ;; ^an ft af« jfoaj/j Iutpt fc/fr 

(lik pent plan next gradually grow 300) ;; Itefr /9r M« pentagon 

(ask pent plan next uradually right 9ft) 

{ask movie make «iy-ffrst-f1lni) ii *#erjt&lng u ail planntd so let; mate the movie 

{ask my-f irst-f ilni set your franES-per-Sfteond tg Z) 

i ; if the CQntpMtT were faster J0 might be nicer 

(ask tny-first-flln fn* the haxt p ticks) jt nstf rA# tamer&t for the next 6 clock ticks 

(ask my-Mrst-MlB project) ;; yiu jutt jaw the film being that, nw lets stt it projected 
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III. Some tHing 

When you start up a new Director you initially have available to you only a few actors. The 
rrwsr important one is exiled Something and it doe* everything that evwp actor should be able to 
da. In other words. Something maintains a memory, accept* print messages, makes instance) of 
Itself, maintains plans for pseudo-parallelism (with the help of Universe), and can be told how to 
handle new message*. Object, Movie, and Screen do graphical things and are described later. 

Every actor IS an offspring of Something S nd therefore unless explicitly toW Otherwise will 
behave as Something does when receiving the message* j* this section. The sections describing 
message* of Object, Movie, Universe, and Screen apply only to those actors and their descendanb- 
The relationships of all the attors initially present in Director is depicted in the following diagram, 

SOMETHING" 



SCREEN 




POLY / F LOVER X IHTERPQLr.1 IM DEFAULT-UNIVERSE 

ROCKET TEXT 

This guide is organised by the pattern* of message* an actor can handle, Each section 
describes a primitive actor by listing those menage patterns directly associated with it ((,e, those 
menage* that the actor irsetf handles rather than pasiing the problem on up to its parents or more 
distance ancestors) Variables that the actor treats specially are also described. 

A pattern is a hsr of words or patterns. If a wwd begins with a question mark (?) or a V 
then it |s treated specially FalL«rns are matched against merges. A question mark means that 
anything may be typed in thr corresponding position of x message. If a question mark is followed 
by a word f then thai word becomes the name of the What you typed In the corresponding position 
in the message. A ~t" means that any number of sub-items (even xero) can be at the corresponding 

I 

petition of the message. For example, the message ,"{I eat pot stickers)" matches the pattern "(1 
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Action things)* arid as a result the name "action" temporarily gets fh= value "eat" arid rhe word 
■things" is bound ro de gets the value) "(pot sticker*)". Currently the "ft" can only be used at the 
end of ■ pattern 

You map type upper or lower case letter* as you prefer. The patterns given in this paper use 
capital letters For required words and lower as* For variable name* in pattern!. If there is an 
abbreviation Tor a'patrern in the text then it is on the far right oF the pattern. 

Creation and Destruction of Aotore 

(ASK Tanyonc rWE 7naH] 

This causes an instance oF the receiver of the message to be made and returned. The newly 
created actor wj|| behave exactly as its parent do« (eraept when asked for its name, offspring, or 
parent's name or course). You can tell it new things to remember or bo* to behave If It receiver 
new iinds of messages. If there was. already an actor around with the same name it will be 
destroyed and replaced by this nc* one. 

Any time you want to as*, an actor anything you tvp* '{ask \ then its name, the menage 
and end with a 'J'. So to create an actor named Sally jutt type, 
(ask some th i no. make Sally) 

(ASK 7a nycrt a HjAKE INTERNED OFFSPRING} nto 

This, behaves just like "make 7name" except that here you lets Director pick a name. 1 

( ASK 7any one HAKE UN HIE P HEC OF F5PR INC ) rMJO 

This brhavei like the previous one only the name it ptcks tan nut be typed in. To talk to 



L Mi* it an abbpeviitiirri for "makr pnicrncd oFfiprihe* u> you tan jntl it <r«ll type (aik joo frmia). Tk« 
"JSi" in nrt^fcj tv tifiiml Drrcttor tKal wUti fu-llfl-wn is in iibhraviaLinii. 
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the resulting actor ymi must either save the resuh of (his message in a Lisp variable or have some 

Other actor store it, 



(ASK ?anyons IF NEW HAKE Tname.) i nB 7 

If there already eKistj an actor with the same name ihen nothing happens otherwise on* is 

i 

mad e. Name is returned Jri either case. 

(ASK TanytHiE HAKE COPY Sibling) mc T 

An exact copy of the reciptent in this message- transmission is, created. The only difference* 
between the new *ctor "sibling* and the recipient are their nimn and that the newly created actor 
has no offspring. Of course, afterwards they may be told different facts and how to handle 
messages. This creates an identical twin while the other "Make" message* create children. One big 

difference is that if you change a [win its sibling is not affected but if you change a parent then its 
children potentially wiEF be affected, 

(ASK Tanyone WAKE 5YNQNYH 7n*m«) ns } 

This does nc* create a new actor. Instead the recipient is given an alias, another name with 
which you can use to send. Lt messages. Beside* providing a way to give Shorter names to any 
actor, this Is often useful when the name is a list For example, ii you have an actor that is the 
comparison between A and B then you tan define the comparison and give It equivalent name as 
follows, 

Cask something fnaho ( comparison -of A B)) 

(ask < coups Ms on -of A &J make synonym (compirlsttn-of B A)) 



1, Thfc only rvsKtm lor ptallifa£ up with dl« itiMiiYEii ierw:e IF 10 thai the irlftr i« subject tfl e/irb-ae/e 
collection, I.e. will f.o away when y«i tin lender cm net to it to 1*1 it anrthine. 
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Defining the Behavior of Actors 

(ASK 7aTiyone CD WHEN RECEIVING ?pattcm taction) dwr T X 

This very important mcsufc type expands the repertoire of in attar. The "IT indicate that 

"action" 14 to be the name 0i the part oF the message that follows the "pattern". 

Suppose you want In male an IClcr named ISally" who will respond With "yes it is a nice 

day, morning or evening" when you say "good morning, evening or whatever". You Just type 

(ask s oiive t h i n g make Sally) 

(ask Selly do when rece-Wlna (nood 7tfne-of-day) 

; e */ Sally Ttceioes tht m*d gctxf fftlcwed by another w<?r4 
; ; which tit Will cult by the nam* tim-vf-day thin 
(type '(yes It Is a nice , t 1 mc- o T- diy ) ) ) 

If the comma had not preceded the variable "time-of-day* then ihe would alwayj type the message 

"yes it fs a nace time-of-day", To test it out we again ask Sally jornethingv this time to respond to 

"good morning", 

(ask sally good morning) 

E W afAicfi she responds 
YES IT IS A NICE HORNING 



<ASK ?anyone EXTEND BEHAVIOR WHEN RECEIVING T pat tern BY DOING Ksome- a c 1 1 00 ) ebwr ? bd 
This is useful for extending Lhc behavior nF an actor in response to a message that it already 
can respond 10. If while running "some-act Jon" a message is sent that matches the "pattern \ then 
this new clause is ignored and the old action is taken, 1 Suppose you want Star to move forward 
and in addition grow whenever it kg told to go forward. 



1. Th* iruin reason tke standard "rmci'lT mresare It n&l defined In knha¥r thi! "fly M C* allow reeunlofh 

If c»ch r<™»*r clause w*m ittelF a full *cler then extendinc (heir behavior could be acme in # rnvtli 

i Ii..ti> r way 
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(ask star extend behavior' when receiving (forward ?aw3yfitj by doing 

(script: (ash iself grow .anounL) n ask your tr if K grim the t&Ht &mnttit 

(a*k :self forward # amiunt)Hl ;; stud along the mtisage to yonirieif 

Vnu could have used "star" instead of "self" but ;seif will also work right if you make any offspring 
of Star and ask them Co go forward, since :S*lf always contains the name of the original recipient of 
the menage- The ward "script:" is used no protect the commas. Recall that they mean use the 
value of the following expression and so without the word "script;' Director would be confuted and 
say thai "amount" has no value when )rou typt the abore expression Using the word "script" 
means that the comma should get tint value of the following expression when the script is being 
run. To learn how to remove extended behavior, if no longer wanted, tee the "remove clause 
for..." message below, 

if you are confused about how this message differs from the "do when receiving" message 
above try mating some actor and tell it "do when receiving" with the same pattern and action as 
above. Then tell it to go forward some small amount. After you get the idea type eontrol-g (white 
holding down the control button (ctrl) type g). 

Printing 

( ASK 'anyone PRIHT Xopt 1 on ) ps OR pn OR pv OR r>db 

The possible "options" are "script", "memory", "variables^ "database* Of "all", If no Option or 

"ill" is given then all are assumed, They cause the script or the memory of the recipient to be 

printed. The memory is split up into "variables" and "database". If a second option is given it U 

assumed to be a fik name to which to print. So to print the entire definition of Sue to a file type 
{ask Sue print all Sue file) 

This will cause Sue to be printed out in a form that is designed to be easiest to read. It can 
not be read back into a Director however To do that use the following message 
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(ASK 'anyone SAVE %f lie-name) 

This message causes the recipient Co print itself out in Lisp onto the "file -name". If a file or 
that name already exist* il will add Itself to the end. Vow can tall the Lkp compiler Upon the file 
or JUSt use [hit to save away *n actor onto file. Using 1 the Lisp function "Load" you mo get the 
saved actor back into another Director. If no file-name II given then it will return the Lisp form 
instead. This does not work If th< actor is compiled a; is the case wnh all the actors, available ih a 
fresh Director. If you yiam to save away Sally and Sue for another lime, for example, then type 

[aiH sally save flower file) ;j put salty in the flit calltd flmtt /tit 

task sue save flower file J n put iut theft too 

So another time if you want Silly and Sue jujt type (load Waver Hie}). 

(ASK ?anyona- MtLP Jtpsttern) 

ThPi cause* the recipient to print our commenSs about the different messages It can r*cei¥#. 
If no pattern is given then all (he different message* are described. If a pattern is g^ven then only 
those that match the pattern are printed. So ld see all the messages that begin with the worcl 
■project" that a movie can handle just type 
(ash Movie help prpject %) 

■ 

(ASK ?pnyone RE CALL CLAUSE FOR )is amp la -message; ' rcT T 

This will return the first clause that matches trie "sample-message". NIL li returned, if the 

elause is compiled or if nothing matches the message. For example* If you tall Satty, 

t«* sally do when receiving (bye ?wben) -"(goodbye » when J) jj tg (ask mity bye new) 
(ask sally recall Clause for ipye my-ol-tlme) 
<(&*£ ?WrlEN> '(GOODBYE ,WhEK>) ;: (j rrfurn^f 

(ASK 7 tiny one REHGVE CLAUSE FOR tsample-mesiaga) 
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This removes the First clause to catch the p sa mple-meiiage". You cm even remove clauses 
from the compiled primitive actors iuch is Something and Object so use this message with care. 

Tracing 

(ASK ^anyone fftACE 7pattem Suction) 

If any transmission occurs that match the "pattern* then a comment that it happened Is 
printed -and the "action", tf any, is taken Finally the message is sent and a comment Is printed 
describing the results- A transmission iithe redplcn: combined with the message. This it so that 
you can ask a parent m trace some or all messages passed to it from m offspring. It you want to 
we all the messages for Sally that begin with either grow or shrink, you should ask her to trace by 

typing 1 

i 
(ask s*lly trace (sally <or grow shrink) %}}, 

or if you want a break point when ihr or any of her descendants receives a message that changes' 

the value of the variable "site" then lype 

(ask sally trace (7 for set change} your size to ?) (break ilze-hB tng-set) J 

If you want to trace every message that Sally and her descendants receives you can type 
(oak sally trace} ;; tame ai (ask saity tract (7.)) 

(ASK ?anyone UN TRACE 7pattern) 

This removes any traces that match the "pattern", ir no pattern is given (the message J* 
simply un trace) then all traces on that actor are removed, Un trace removes traces from the actor 

receiving the message and all dF its descendants. Therefore to remove all traces from everyone jmt 

type "(ask something untrace)* 



I. PaitrHi; in Director car Jvc more c<nnjj]icai E d than described kg Fir. A complete detcnplion al patient* 
can bt f annul in a 1*1 Cr micLiihi. The nut of U and or in the dimple* her* mean that iho pattern iutcftdt 
\i il inaU:riit* cither at the Eu l pfl L rtnu. 
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Memory Messages 

Something {and since all actors are defendants of Something this is true of all actors in 
Director} hat two kinds of memories, variables and a relational data base. The variables are 
known by the actor that was orsg malljr mid to set them and indirectly by all of its. offering and 
more distant defendants The data ba&e n good fur remembering any list structure and recalling 
it later with a pattern. 

Variables 

Each Director variable ii associated with a particular actor. The value and the nrnni of a 
variable may be either an atom or a (tit. So for example, an actor may have a variable failed 
"(EVE COLOR) - and its value may be "BLUE". 

(ASK Canyon* lor CHAMGE 5EH YOUR Tvar1ab>H TO Tnew-value) sy ? to t OR cy T to T 

The part enclosed in \) means lhat either the ivord "change* or "set" can be typed, there is no 
difference. A message matching the pattern cauKi the value of ■variable" So be changed to 
"new- value" If the actor had no such variable then one is created and Its value set- New-value U 
returned, For example, if Sally just got a hair nit you might want to update her halt length as 
follows 
(ask sally set your (hair lcn&th) to medium) 

which causes Sallyi variable "{hair length}" to be set to 'medium*. 

(ASK 'anyone RECALL YOUR 'variable) ry T 

This message causes the value of "variable" to be returned. If there is no such variable 

associated with the actor, then its parent wjl| Ije asked the same question, and so on until either ■ 

J 
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value is. fwiiwJ or fir ally NIL is returned ] &s r if you ask Sally 
(ask sally recall your (hair length)) 

the word "medium* will be returned, 



(ASK Tanyona RECALL EACH OF YOUR Nar t ab 1b -pattern J racy T 

Variable names may be either atoms or lists, If it is a Jjjt then one can refer Do it by giving 
only part of its name and a h ?" for each missing part, Thli menace causes the return of the lilt 
tne values of all the variables that match the "variable-pane™". Note that variable patterns, are 
not as general JU message patterns, only Y"* ate permitted and only at the top level of the pattern. 
Using this feature an actor tin have the equivalent of property list*,, netted property lists, and 
arrays. For example, 

(ask sally set your (colar-of friend bob) to red) 

(ask sally set your (color-of friend sam) to blue.) 

(asto saUy set your (color-of stringer ton} to green) 

; ;' ifitn a.',kin% 

(ask sally retail each of your (color-of friend ?)) 

( BLUE RED ) f ; is rtfurntd 

; i while asking 

(ask sally recall each of your (color-of 7 ?)) 

(GREEN BLUE RED J ;; rtfon; ail thru 

If you made the movie My-fir*l-film described earlier and you want to see all the frames 
you can type 
(ask my-f irst-filn recall each of your (fr»a ?)) 

This pattern notation for variables aba works for Ibe "set or change" meuages. For 
example, typing 
(ask sally set your (color-of ? 1} to yellow) 



I- The i-tlurmnj; «T NIL for TJiibourtd tjn^bltt is vmwy ronnirnsnt dtfauLL, especially iaw iTOTien, This 

can be ifcrridrfen fa ihflt it iKc&mei an trrnr hy %m\ns tlif Triable dcm-nnii dHuuisee fctlo-. 
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will set all the variables of Sally that art thrw long and begin Wlih *co1ar-ni" 5fl "yellow H , 

(ASK ?anyonc INtftEhLNT TOUR Tver table flY Tewountl 1y ? by T 

This causes the value of "variable" to be set to the sum or its old value plus "imwnt" in ihe 

message. If there is no such variable then one is created and *« to the 'amount". Unless both 
"amount" and the value of "variable" 1 are number! an error will result. The new value of 

"variable" is return ed. So ||" you type 
(ask sam increment your size by ID) 

and hit old size was 20 then his SIH II now 30, If Sam did not know what La do when he received 

a message asking him to increment a variable you could have told him by typing 

(ash san do when receiving {Increment your 7vaMab1e toy ?fimount) 
(script; (ask Tielf" changE yaur F var1at>le to 

, (plus (or (Bik :self recall your .variable) 
0) a In ca« It Ad no vain* airtady 
amount]})) 

Notice that this message and the following ones do not change the value of a Variable of an 
ancestor. So if when asking Sam to increment his Site, h* did not inow his sue and had to ask hi* 
parent, then his parent^ sire It not affected by this change. Instead a variable for lite Is created 
for Sam and Initialized to be the sum of his parent's UK and 'amount'. 

(ASK 'anyone ADD ?new--lten TO TOUft LIST Of VI lit -nana) add 7 tylu 7 

If "new item" Is already a member of the contents of "list-name - then nothing happens, 

otherwise "View-iicm" j s added onto the. vahie of list-name". The new value of list-name U 

returned. For example, typing 

{ask san set your neighbors to (fred bob sally)) 
(ash san add sue Ko your list of neighbor's) 

results in Sam's variable "neighbori" to he set to (Sut FREO BOB SALLY). 
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(ASK ?anyon* ADD 'new-item TO YOUR LIST Of Jllst-nsme RE&ARDLESS) add t tylo 7 re^ 

This is the jartw a* the previous "sid. .„* message only the "new-Item" is added regard Ins of 
Whether it is already a member of the Value of "lllt-mme" 

(ASK 'anyone REMOVE totd-1tem fROfl YOUR LIST OF mat-name) remove T fylo T 

This removes all copies of "old-item" Tram the contents of "list-name", Suppose Bob moves 
away from Sally, then you can ask SaHy 
(ask sally remove bob from your li*t of neighbors) 

C.A5* 'anyone LIST ALL YOUR VARIA&LE MAHE5) l t¥VO 

Returns a lur Of the names of all the variables known directly by the recipient. Special 
variables like descendant and siblings are nut included Since the* are computed when asked for 
and nre not known otherwise 

CASK ?anyone FOnftf 1" YOUR 7viiriable-pattern) fy f 

if "variable-pattern" is (be nafne of a variable it to forgotten (the recipient h restored to the 
same condition as. before the variable was created).! If it Is T then ill variable! are forgotten 
except for "paTEnf, "offspring* and raim". Jf 'variable-pattern 1 ' i$ a list containing question 
marts then all those varaablei which match are Forgotten. So typing 
(ask salty forget your (color-pf friend 7}) 

will cause Sally io forget about the variables "(color-of friend sam)" and "(cotor-of friend bob)". 
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Demons for Variables: 

Semetimej you ^ an[ SDme special action io take place when recalling or changing the value 
of a variable. Each special 1 action js called a demon anil the demons for a variable are kept in a 
variable ^huSc name itarts with the name of the variable to be watched followed by either 
"actions if- trailing" or "aetions-if-changing" depending on whether the action should late place 
urheri Ihc variable Ls recaLFed or changed. Variables matching the following variable patterns are 
run when their corresponding variable is changed or recalled. 

Vatitblt pattern ( ?Yar1aMe-narie ACHOIW-IF-fttCALLING) ii alkrtvieted *J (f aim) 

Such variables can be created, modified and inipected using the normal variable messages. 

If the seennd name of a variable is. "actions-if-recalling" then If the "variable-name" is ever recalled, 

then each member of the list of actions- if- recalling li evaluated. The value returned by the recall 

is the last form of rhe hit evaluated. The farms can reference the Lisp variable "aid- value" which 

a the current value of the variable. So if you want J act to always He about his ag*> so that it is 

never greater than 3D you can type 

(ask jack add £min ; o id- value 3-9) n rttutn t&f jnlnimum of current agt and 39 

to your list of (bob actions- if-reca 1 1 ing) ) ;; if wvtr reacting Ait Hg< 
(ask Jack 4at your age tn 70) ;; nm to Uit it out 
78 

(n*k Jack recall your ago) 
M j f to wMch he reipondf ?9 

This feature is useil ■ y objects (descendants of Object which Is described, later) which have a 

variable called "state" that is a list of the x coordinate, y coordinate and heading. When you ask 

an object for its heading it returns the third element of this "state 1 " variable. This Is done by 

(ask object add (third (ask :$clf rue all your state)) 
to your list of (heading itUonB-lf-rflcalltng) ) 
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Variable pattern ( ?var labl e-name ACTTONS-H -CHAMGTHG) If aMrrriaYerf or {? a1c) 

When changing or netting (they are the same thing) the "variable-name - then the variable 
whose first name is "variable-name" and second nam? n "actions-kf changing" il recalled Each 
element of that variable {If there Is one* is then evaluated. The value that the variable hat just 
been set to it available in the Lisp variable "inew-value". Suppose you know Eha[ Jack should 
never be over 39. Then to gel a warning if his age is set to too high a value just enter 

i 

(asK Jack add 

(cond ((> tnew-valua 39) ; ; tf tht vaiut ii patttT t&aA 19 

(type '(warning Jacks age set to „ ;nc>r- value which la too high))}) 

to your list of (age actlons-if-changlng)) 
(ash jack change your age to 73) ;; rrjp iJ out by letting hii age t« tw high a value 
WARMING JACKS AGE SET TO 73 HhTCH IS TOO HIGH 
73 ; ; but Ais age is set t$ 7 J anyway 

Jr you wanted his age automatically set to 39 in thii case then type 

(ask Jack add fcond ((> ;n&W-value 39) 

(ask Jack set your age to 39))) 
to your 11st of (ag« actlons-lf -changing)) 

Relational Data Bases 

Associated with each actor (since each actor is an offspring of Something) It 1 powerful data 
base. The patterns used 10 retrieve item* from the dala base have the Same form a*. the message 
patterns, e.g. "? H is used for anything in coat position, "S" for anything taking up any number of 
position!. A complete description of patterns can be found in a later lection 

Memorizing 

(ASK Tanyone HErlQRIZE ?1t0rt) men t 

Any list" structure may be remembered. Once an actor is told to memorize an item it Will 
never forget it unless you ask it to "forget" as described later, Some example! of memorizing are 
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(ask sally memorize (color sty blue)) 
(usk sally meronr-Ue, (color ocean blue)] 

Retrieving 

It dorsn't do any good to have Sally remember these thlngi if we can't aifc her about thero 10 

we have the following messages. 

(ASK Tanyone RECALL IF ANY ITEMS NATCH ?pattim) r la tin T 

Silly will answer T (for truej or "NIL" {for don't know anything about iU defending; on 

whet he: she was. ever told something thai matches! the "pattern". So if you aiked Sally the 

following questions 

(ask sally recall 1f any items tnatch (color sky blue J J 

T ;; U, yup 

(ask sally recall if any Items ditch (color ^anything blue)) ;; atmt as (ester 7 blue) 

T e ; of course 

(ask sally recall If any Items natch (color Janythtflfj green)) 

NIL ; ; 4vni know of any green tMngf 



(ASK 7anyone RECALL AN ITEM HATCHING Jpattarn THEK Taction) ratffl 7 than T 

It would be nice if Sally would fay more than yes or no. One way to do this is to use this 

message. If she remembers at least one thing that matches the "pattern" she Will take whatever 

"action* you ask her to. So, If you type * 

(ask sally recall an item matching (color 7th1ng blue) 

then (type '(1 know that the +thing is blue))) 

I KNOW THAT THE 5KT 15 BLUE ;: M which ihe tespmds 

If you hadn't told her about any blue things then ihe would have answered "NIL". 

The first element of an item in a database a treated specially in order to ipeed up retrieval. 
Because of this you should always provide the first element completely without using any question 
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marks, If you don't like this you can always use some dummy word in the front of all the Items. 

(ASK Tanynne COLLECT ITEMS HEttOBIZEO HATCHING rpittern) clmm 7 

The previous message* aren't too helpful II the actor in question has remembered several 

Items trial march the pattern since you nEver know which item the actor will base its answers an. 

Director once had (arid it could come back by popular demand) a series of messages for creating a 

stream of answers to question; that could be interrogated for Jts answers one by one, Instead of 

that, this simplier f less general, "collect Item* memorised matching..." message It provided which 

collects into a list and returns all the forms that were memorized and match the "pattern - . So 

typing 

(as* sally collect Hens memorized matching (color 7 blue)) 
{(COLOR QCFAK BLUE-) (COLOR SKY BLUE)) ;; it fituratd 

Demons and Virtual Items 

You sometimes want special actions to occur during some database references. Similar to the 
demons for variables, you can create database demons to satisfy such needs. Variables whose name 
consists of Lhe first element of the item in question followed by either "if-recalllng-itemi" or 
"act tons-Jf-menwri ling" are evaluated when an item with the same first element Is called for or 
memorised. 

VatiaM* pattirn £ ?f Irs t -element IF- RECALLING- 1 TEAS) ts cM>rtmtt4 ai <? 1r1> 

The constructors Of virtual items (items that are nnL really In the actor's database but that 
pretend to he) are found on variables whose names match lhe above pattern, Wnefi needed by 
either a "refill if any items match", a "recall an item matching" or a "collect items memorized 
marching" message they get run. 

Suppose you want lo have a table actor thai keeps track of block! on top of It. You want It 
to remember which blocks are left and right of each other. Furthermore, you don't want to clutter 
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the table up with too many facts. One thing to do is to have the table merroome only Item* about 
which blocks arc left of Which Others i*Tl^ to use "if-recalbnjj-items" demons Id fake it to took as Jf 
it also had memorized which are right of which others. To do [hit enter. 

{ask table add - 

;; add to the table's hit t>f demnt jot qutfttint Itginning With righttf 
(If-asked-about (right-of 7bl0Ch-l 7blOCk-£) 
; i if atktd about a W«fc being right of arwther then 
( script : 
(ask ;self recall an iten matclitnfl ;; then look fer an item, thai sap that 
(left-of (and Tb2 ,blo£fc-2] {and ?bl .block- 1}) 
;; th.i jfccnd Wwi ii Itft-of the fint ont 
than 'Crtoht-of T bl *bZ)))) 

;; and if found ptettRd that B Ttght-fif Htm. U>ai thtrt 
to your list of (r1flht-0F 1r-rac*l 1 Ing-lteHS;) ) 

Only those items constructed that match the original request are used in aniweri. To test out Mir 

table we can Enter 

(ask table memorize (left-of (oreei block) (red cube))) ;; tell it mnteihing 
(ask table recall an Stem matching (rlflht-of (red cube) Tsonie -other -bluett) 
then (type ''(the .some-other- block Is right of the red cube))) 

i ; after asking if for SQfltethittg thttf it right «f the red cube It responds 
TH£ (GRFFM BLOCK) 15 RIGHT OF THE RED CUBE 

Variable pattern { Tflrst-elenent ACnOhWF~rlf.r»«rZT,NG) abbreviated as { ? aim*) 

If. in&tead of pretending that some item is memorized, you want some special action* to occur 
when terra in items are memorized then you should put the action* in 1 variable whose name is the 
first element of the items in question followed by "actions' if memorizing". Suppose you rather hive 
the tabic memorize both the left and right relationships of its blocks, but you don't want to have to 
enter both kinds of statements. Then using actions-lf-memorlzlng you can have one kind 
automatically added after the Other Imd is. To get the table to mernoritt right-of statements after 
first hearing of the left-of version just type, 
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(aSik table add 

; ; mid to the tilt of actions to happen if xumriltitg ff»V Ittm btginnfng with Itft-af 
( ir-ttfld-about (lcft-nf Tthing-J ?th1ag-Z) 
{ sc r i p t : 
IcOFtd UiSk ;5*lf recall If any itensmalch (rlflht-of ,th1flfl-2 ,thing-l))) 
11 if I already haV* m&tMtittd the tQrrtip&TidtTig item then, do nothing 
<t {ask :self nemorize (rtght-Qf ,tMng-Z ,thing- !)>>>>) 
J ; Q1A& wii* mtwrizt the Hem rtgAf-vf with the- tAingt StDitihtd around 
to your Hit of (lert-of ect1ons-if-me»orfjlna)) 

The reason 1 first checked whether (be new item is already known Is so that the analogous demon 
can be plated Upon the pattern "(rlght-of ? ?}" without the two activating each Other fore-VEr. 

Porgottitlg 

(ASK ?anyor>« FORGET HENS HATCHING ^pattern) f1m t 

This remoifci any previously memorized item matching the 'pattern" from the data base of 
an actdr. If you wsnt Sally !o forget about all the blue thingt ihe knows about you could type: 
(as* sally forget items matchtns (color 1 bluel) 

To have her forget everything (except her name parent and receiving clauies) type 

{ask sally forcet Items, matching {X)\ ;; forget tsetj data bate item 
(ha* sally forget your 7) ;; fvrgct all faW tmrtatiti 

Plans And Fffeudo-PnrnlleliRm 

Normally when an actor receives a message it rtlpond-S is quickly » possible In order to 
have several actors behave at what seems to be the same time this Is not desirable. Director solves 
this by providing a "tick" mechanism which ii described in greater detail in EKahn 19781 

( ASK ?anyone PLAN HEXT Vactloit] P" * 

This indicates that the menage Called "action" should be sent artsc the next lick. Ticks are 
explained later in this section. 
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fASK ?anyone PLAN Al TLft 7hU«*er TKKS faction) pa 7 ticks % 

This requests that the message tailed "action" be Wnt after "number"' tkkJ, Suppose you 

want to have Sally grow and after that to go forward and at the lame time pou want Sam to go 

forward on the next tick and to grow on the tick after that You could type 

(ask sally plan next grow LOO) 

(ask sally plan Bftflr Z ticks forward 50) 

(ask sofi plan next forward 50) 

(ask sain plan after Z ticks grow 100) 

Once all the plan J have been made you can get any actor to do all planned cm the ne*t tick 
by asking it lo (TICK). If you ask an actor named ]Jt'fauJHini>«rw to (TICK) then all the actors 
will do what they planned for the next tick. If you ask Default-universe to »flUM FQfl i TICKS' 
then 3 tick! of action will happen. 

(ASK 'anyone PLAN AFTER 7number SECONPS XiMMflga) pa 7 Seconds H 

This is the same as the previous message except that the Units are in /Km seconds, While 
making a movie there are variable) for the number of frames per second and ticks per frame 
Which are multiplied by "number'' in the message to get the number oF tick*, 



(ASK ?anyone PLAN AFTER RECEIVTMG ?everH-ptllern TO liKssaoe-forn) parx 1 tq T 

If the recipient of this message type receives, a message matching the "event'pattern" then the 

"message-farm" is ev altJ&ted (in the environment CK Tended by matching the event-pattern against 

the event message) and sent to the recipient Suppose you want Sam to melt after colliding with a 

sun otherwise to explode. Then you could enter; 

(ask s&tfi pl-nn after receiving (colliding with ?other) to 
i j if a iruisngt maukti (colliding with rj 

(script: (cond {(ask < other arc you a sun) ; ; if (At ofA^r It a tun 
'(nelt)) ;; ihtn the message to U Stnt Is meti 
(t '{explada))))) - t ; tffartitit* it is expiodt 
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(ASK 'anyone PLAN AFTER RECEIVING 7e vent -pat tern TO ALWAYS ?message-fefM) parx 7 ta 7 

This Li J USC like the la.S[ message except that it will ala,ayi do "message-form" after receiving 

a message that matches "event-pattern*, while the other one only warts the firit time that, a 

message fnstehei The affect of this message could easily be actomplithed using the "exiefld 

behavior when receiving" message. Suppose you want Salty u> grow 1W units 3 ticks after 

gradually going forward 200. then you could type 

(ask sally plan after receiving (note that I finished flraduaTTy forward 200) 
to always -'(plan after 3 tteks grew 150)) 



(ASK fanyene RtPLAl Tmessage Tnumbar TIMES) 

Thii causes the "message* to be sent now and th* plan the messages the comma means the 
value instead of the name. 

(ASK ?anyen« REPEAT Tfflc-SSflfle 7number TIMES EVERY 7sn~nany TICKS) repeat T ? tfl T ticks 

If beacons had no* be told how to blink She/ could be told to using this message by entering. 

task t beacon repeat (show) 10 ti»es every 2 tick*) 

(ask F beacon plan next repeat (hide) 10 times every 2 ticks) 

So that the bEacon will show and hide on alternate tick*. 



(ASK ^anyone KlPLAT 'message FOREVER) 

This is iimjlvir to the previous message only the action is repeated ad t-nfl-nttum. This is 

defined as fallows: 

(ash something ;; every actor inherits Ikti beka vinr from Something 
do when receiving (repeat 7meisafle forever) 
(script; (ask :3elf I d message) ;; stint lAe menage to youj self 

(osk :self plan next repeat T message forever))) 

;; and plan ntxt lo r4frtat th* i&mt thing Again 
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The T in the first line of the script means that the list that follow should be Inserted into the Usl 
without its parenthesises So typing "XasK sally Ifp-rilH memory/))" H exacEly the iarne is typing "(wit 
sally print memory)". 

(ASK ? anyone TICK) 

■ 

This messagE causes (hose messages planned for the fleJit tick tp be «mt. These ire kept on 
the variable called "things'to-do-next". Conceptually the transmissions, planned for i tkk happen 
in parallel as does rhe broadcasting of t,kfc messages by either a movie or a, universe. A tick is a 
quantum of time during which you should nor care about theotdet Of transmission of any planned 
messages. See the sections describing Moile and Universe below for more detail!. 

Broadcasting Messages 

Sometimes you want to have an actor send message! «l along to others it knows about. The 
following; messages art to help you do that. 

(ASK, ?anyone ASK YOJR ?var labia TQ Xnessaoe) ay T to * 

This asVs rhe recipient to recall its "variable" and then send to it the "message", For 
example, 

(ask sally set your friend to bob) 

(ask sally ask your friend to recall your Offspring) 

Hopefully Sally ha J more than one friend, In that ease you can create a different variable 

{"friends* is a good name) and use the next meisage, 

- 

(ASK ? any one ASK EACH OF YOUR Tvartublt 10 tfWAiaoB) aooy T to % 

This sends out the "message" to each or the member! of the list thai Is the value of 
"Variable". Nothing happens if there u no value lot "Variable". As an example. 
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(ask salty set your friend* to (bob ted carol allee.)) 
(ash sally ask each 0>r your friends to print variables) 

There are a few special Variables Chat are useful together with this message, They are 

"descendants", "childless-descendants', "si Wings' and 'offspring". Offspring are all the children of 

an actor, siblings Are all the offspring of an actor's parents except itself, descendant* are all the 

Children and their children's children and SO ort, and thlld less-descendants are those descendants 

that themselves have no children- IT you wanted all the actors in existence (except Something and 

those actors created by "male unintemed offspring") to print, for example, you just type 

(ask something ask each of your descendant! to print) 

i 

(ASK 7a ny one ASK Tahathar TO Kmessage ) 

This one may seem kind of lilly. Why ask someone else to ask another person something. 

why not just ask them yourself? This is handy mostly when you are planning or repeating 

something because thejf, by convention, deal with messages that are to be lent to the planner at 

some later time, The planner is typically the same actor as the one who executes plans but 

occasionally this is not the case. For Example,, if you want Salty to tell someone that he It a dutZ 

because he just collided with her (rather then do something herself such as explode), then you 

could type 

■(ask sally plan after receiving (colliding with ?Other) 

to always ''(ask , other to n*te that you ar* a elutz}) 

If Sally receives a message informing her that she Is colliding with Bob then the following 
transmission occurs 
(ask sally ask bob to note that you a clutz) 



(ASK Tanyone DO THE FOLLOWFNGj XMESSAGK) dtr X 

This (OO may seem silly at first, why send yourseir many messages at once like this? Again 
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this message is handy when planning to rio sntmelhing later Since you hai^e no say, regarding the 

order of messages sent fifing a tick, this pattern provLdei you with some. The difference- is subtle. 

Using this message yw c*n plan to do a compound action at a particular time. The alternative it 

to plan to do several simple actions all at that time. Suppose you want Sue to draw a pentagram (a 

five pointed .star), then you could type either 

(ask sue p end own) ;; So lAat jA* ttapts ft trait bthlTut far 

(ask SUft repeat (do the fallowing: ( Tor ward 200 J (right 14A)} 

□r iF you don't care whether the star U drawn by poing forward first or right Tint then the 
following is just as good 

(aik HUv rL-ycjt (forward 2Q(j) b LIjibsJ 
(ask sue repeat (right 144) 5 times) 

Remember that the "repeaf message is defined to do the message and plan to repeat one less time 

the same message 

[ASK ?anyona KEEP DOING LJMTIL fp red 1 Gate Kites &flB>) kdu T % 

This Xeeps sending the "message" to itself until it results In something that satisfies the 
"predicate". Suppose you want Sain to grow SO u n til he 1* at tea it 500 big Then you could type 
(ask £.*■ keep doing until (lanfcdi (result) (> result fuQ)) grow ]Q) 

Variables that are Special to All Aotors 

There are a few variables that are treated specially. Among them ate "siblings", "offspring", 
"descendants", and "child less-descendants' If there is no value for one of these variables Instead of 
asking the recipients parent for a value one is made tip. It returns either the relatives indicated ar 
NIL if there are none. . 

name is a variahlt tuAoje 4tfimit vatur ts <name vied when hie da > 
Every actor ha* a name. 

Papja-SS 



Director Quids Vnrmbles thol ere Special Iq All Act<XB Kenwlh Kshn 



parent ii ft variable uiAvte default value it <the Mker nf redplenO 

Every actor has, ai its parent the actor that created iL Jl essentia] to have a parent to accept 
any message or recall any variable or database item that one doe* net know explicitly. You can 
change ynur mind ai to who a parent of an actor is and reset It using "change your ..." hut the 
previous parents offspring (iee below) will not be changed and the new parent will not 
automatically know of thJ4 new offspring. 

Offspring 1 it a variable Mhme default value is ni 1 and it abbreviated at off s 

Every actor tnows the names of all it* offspring {eacept these that ate not interned), Thii 
variable i* not inherited of course. 

Siblings is a variable wAose default value It ni] end Is abbreviated at ilb 
An actor'* siblings are all of its parent's offspring except itself. 

descendants, is a variable mhatt default value. Unit end it abbreviated as des 
This is a list of the actor'* offspring and their offspring and so on. 

ch 1 1 d T es 5 - de scendan t s it a, vttricMe whose default value it nil and ti abbreviated as Cd 
Thii is a list Of all the actor's descendants that themselves have no offspring. 

universe H a variable whose default value is default-unt versa arid it abbrtubucd qj unl 

The variable "universe" is used in planning and its value should always be a descendant of 
Universe. Iti value is informed whenever an acror plam anything. 

th 1 ng S- to -do- ne-% t it a variable whete default value ij ni 1 and is abbreviated at ttdn 

Thii variable contains the list of things that its owner plans to do upon receipt oF the next 
tick message. You nerd not worry about this variable unless you want to write your own planning 

primitives. 
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IV, Object 

I 

! 

Object is the top-level actor (or thou that can be seen on a. display Kfeen. Objects ire 
much like Logo turtles only much more versatile, Many of the message patterns are intended to be 
compatible with the TV turtle- 

Creation and Appearance 

ObjetLs arc created using the "Mai?" message de&cribed above, [n order to inform this newly 
created actor or its appear* nee it rrtijst be told (be flame of a Lisp program (made up of turtle 
commands} that will draw it on a display. IF its appearance is not easily descrlbable by turtle 
commands (such as text) then you can use the instant turtle or you can supply clause) Tor the 
reception of display and erase messages, This is all described later. 

(ASK ?ao-ob joct VrlEH DRAWING USE 'draw- procedure OF Xdrav-argi) wdu t of % 

This inform* "sn-objett" that it ihould draw itself using the "draw-procedure'". The 

procedure may consist of Forward, Back, Right and Left commands hut coordinate commands {for 

eKamplr. Setxy} should be avoided. Instead or Pen up and Pendown use Thing Up and 

Thing down "Draw'Mgs" 1 is a list of variables that mutt be "■Recall-able'", |_e. variables known 

(either directly or through inheritance) by the actor in question, If these variables are changed 

and the object is currently being displayed, then its its appearance will be updated- For example, 

to define an object that can appear as any polygon we could type 

(define poly cbjEct 

(set your angle to 60) ;: let iht default to bt a htvMgvn 
(When drawing use dra^-poly of size angle)) 

Trie macro "Define" is just short hand for 



Peg* - 3Q 



DiriEtor Guide Croat'on end AppaamrcB Ksrmlh Ksrn 



(ask object make poly) 

(ask poly set your angle to 6(5) 

(ask puly when drawing use drayi-poly of size' angle) 

Draw-poly in Lisp ««ld be defined as follow^: 

(defun draw-poly (distance turnafla) 
(do ((ordinal-heading (hft«d1ftp)) ;j saw way (fit friginai Acadlng 
<f4rst-t1na? t)) 
((and (- original -heading (heading)} ;; 4/ tow* td lA* ortfrindf heading 
(setq first-time? (rot f trit-tlmtif ))) j 
; E end tf this it net the first itmt thfaugh then it's finished 
(fnrwarfl 01 Stance) a each time go forward the distante 
(right lurnage))) jj and turn tight iht lurnage 

When giving the argument! to the drawing- prw*duie arc may put .any of [he arguments in 
parenthesis. This declares to Director that the argument does not charge the shape of the object. 
For example, if the drawing procedure has ail argument for the texture then it should be in 
parenthesis otherwise whenever the texture is changed Director will go through much more work 
than necessary If "draw-poly" had a third argument for the lexiure then you should type, "WHEM 
DfiAULUG USE FJRAW-POt i Of 51ZE ANGLE (TEXTURE)*, AUo, the variable "slie" ll treated specially 
by the system (m the definition of grow and shrink for example} so you should use that name 
when that is what you mean. All sizes are standardized so that any object of uze> say, ICO will just 
fit inside a circle of radius 100 uniu. You needn't worry about centering the appearance. Director, 
will do it for you. This can be overridden by setting the variable "center-offset" as described 
below. 

Currently the initial environment includes this definition of Poly and two other object*, 
Rocket and Flower. 
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Shewing n nd Sliding 

(ASK ?an -object SHOW) 

"An-objecf U ihown if not already being ihown, 

(ASK 7an-object HIDE) 

*An -object" is hidden if currently visible. 

Moving nnd Turning 

Just ai in Logo there are at least two way* of changing an object's position or orientation. 
You tan art it to go forward w to turn, or you can art It to change either its "jocor" (the horizontal 
coordinate), "year" (the vertical coordinate), "heading", "position" {the ncor and ycor) or "statV (the 

xcor. ycor and heading). 

Turtle Commands 

■ 

There are two ways of moving or turning. An object can either disappear from when it l» 

and appear in its new position or orientation Another way of moving or turning is to do it 
gradually. "Gradually" message] to objects, do not cause them to move ilowly when the message is. 
received, Instead they move only a tick's worth (yee previous discussion of ticks,} and plan to do 
the rest. In order to see the object move gradually one should art an instance of Universe or 
Movie to run for a number of ticks free below). 

(ASK 7an-0bjCCt {and Tccmmand [ar FD FORWARD ft? RIGHT LT LEFT BK. BACK)} *ainount>) 

if any of the words fd h forward, rt, right, Jr, left, bk ar back followed by any sort of number Is 
received by an object then It will hide, do the "comma nd\ and reappear. So typing (ask selly 
forward £00) causes Sally to disappear and then to appear 200 steps forward from the way the 
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was facing (her heading). If she was hidden to start with she will move but you wont see her. 

(ASK Tan-object GRADUALLY ?coflmand 7a*riiint| grad 7 ? 

This causes the acioi to find its appropriate speed and send itself a message asking it to do 

"command" with either the Speed or "amount* Whichever ji less. The nam* of the speed is found 

In the variable (.command speed-name}. If there it anything left over to dot then it plans to do 

that next. So typing 

(ask tally gradually forward 250 } 

;; is (rte same as typing ( r! i lWn ing &tr speed u jess (Mx 2J0) 

(ask sally forward t (ask sally recall your speed) \ 

(ask sally plan next gradually forward , (- 2E0 (ask Silly recall your speed))) 

The speed of change is the variable "speed" if the menage u a "forward " Or "back" message. It Is 
"relational speed" if the menage h "right" or "left". Object Mows reasonable defaults tor these 
variables but of course you can override any of them. When an object does something gradually 
such as (&RA0UALLV RIGHT flfi) then the rieiiage (NOTE THAT r STARTED GRADUALLY RIGHT 8B ) is 
sent to Itself and; later when it finished the message (NDTt 1HAT I FINISHED GRADUALLY RIGHT 
fi 6 ). These are very handy for making complicated plans: where only after some event has begun 
Or finished should another Start. 

(ASK 7a n -object RIGHT -REVOLVE rdefiriies) rr 7 

(ASK ?an-0Dj*et LEFT-REVOLVE 7aEgr eas) l r J 

These cause the recipient to revolve around its "revolution-center" if it has one. otherwise it 

acts just as if it received either "right" or "left", It travels in a circle around Hi "revolution-center" 

travelling "degrees" to the right or left, 

(ask fan-object GRADUALLY right- REUQI.VE. ?do areas) prr T 

(ASK 7an -object GRADUALLY LEFT- REVOLVE 7degrees) lr 7 

These causes "an -object" to revolve at the lesser of its "revolution-speed" and "degrees" and 
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then plan to do the resi next. 
Coordinate Messages 

Sometimes you might want to tell an object where to go by giving the distance up Of down 
and the distance left W right from cither the current position or the center of the Screen. The up 
and down part is called the y coordinate and the left and. right part is the * coordinate. Th* 
following are the coordinate-Oriented message* 
(ASK ?an- object SETtfY Tnew-X f»M-y) 
Set X Coordinate to new-x and y to ntw-y. 
(ASK ?an-ohject SETX Tnew-x) 
(ASK 7an-obje.ct SETY ?nB«-y) 

(ASK ?fln-flbject SE HURTLE (7new-x ?new-y Tnew-heedlng) ) s*tt (T7T) 

This, is the same as (change your state to ?new-state). 
(ASK ? an- object SET HEADING ?nsw-headlnj) 
Sets the heading same as {change your hiding to ?ne^-heading). 
(ASK 7an- object DELXY TdsHa-X TdaTta-y) 
Add delc«t-x to current x coordinate and delta-? to y. 
(ASK ?an-o|?ject DELX ?dalta-x) 
(ASK ?an- object DELY 7deUa-y) 
(ASK ?an-0bj«et CHANGE YOUR MATE TO TnHH-stato) CVSt T 

Where state is (xcor yoor heading) same a* seKurtfe new-state, 
(ASK 7a n- object CHANGE YOUR POSITION TO ?nev position) cypt 1 

Position is just (xcor ycor). 
(ASK ?an-object CHANGE *CWR HEADING TO Sheading) C yht T 

Seti the heading 
(ASK 7an- object CHANCE yfjJR xcdr TO 7n*H-XC0r) cy*t T 
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Synonymous with (set* ._). 
(ASK 7an -abject CHANGE TOUR YCOR TO Tnew-ycor) cyyt ? 

Same as (seiy ...). 
( ASK. 7a rv- ob je c t RE C Al L YOUR S TATE ) ry s 

Returns the current itate 
(ASK ?sn-object RECALL TOJR POSITION} ryp 

Returns the list dF the xcor and ycor 
(ASK ?an- object RECALL VOUft HEADING) ryh 

Returns the current heading 
(ASK ?an*object RECALL YOUR KCOR) ryx 

Returns the x coordinate 
<ASK Tan-object RLCALL YOUR tCOI) ryy 

Returns the y coordinate 

Jutt as with the turtle commands it is possible to have a coordinate message happen 
gradually. The relative ones fDflK Deljr Delxy) use the variable "speed" just as 'forward, 1 * and 
"back" do. The Ab&QlUte on« (Sftx Se?y Setxy SetturLle Sctbeading) arc moi* unu&ual. While the 
recipients of these messages also use "sp«d" and "rotation* l-speed " where appropriate, they cause 
odd behavior sometimes. An object Is defined to move towards its goal (the desired coordinates 
and heading} as much a; its Speed! allow and then if the goal is not reached to plan CO do the 
original message all over again on the next tick. This can cause some interesting conflicts, if you 
have an abject trying to get u> a particular SWte and while that ps in progress have hi alS4> receive 
some "forward" or "right" messages throwing it off course. The gradual coordinate messages are: 

i 
i 

(ASK ?an-cbject GRADUALLY DELX TdelU-x) odelx I 

(ASK 7an-ebj*et GRADUALLY DELY 7deHa-y} dely T 

(ASK 7a n- abject GRADUALLY DELXY 'delta-* ?deH*-y) QdllKY T 
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(ASK ?an-fbdect GRADUALLY 5ETTURTLE 7nBW-sUto) 

(ASK tan-object .GRADUALLY StTKEADING Tnew-heatilng) 

(ASK Tan^Obdect GRADUALLY 5ETX 7new-xJ 

(fcSK Tan-objecL GRADUALLY St TY ?FlCW-y) 

(ASK ?an-obJcct GRADUALLY SETKY 7new-x 'new-/) 

Growing and fikrlltklng 



gsRtt ? 

gill ? 

gsctx T 

gsety f 

gsetxy 7 



All object} can change their size. Just as with going forward or turning an object can grow 
gradual I y or a" at ones. 

(ASK Tan -object GROW tamount} 

This is the sam* 45 the rrWisages of tri* form (INCREMENT YOUR SIZE RY 7amnur»t). If the 
Object is currently visible Jt will disappear and reappear bigger (if 'amoUhl* is positive). 

{ASK Tan-Ob ject SHRINK TamoUnt) 

This, ls Hie same as a grow message of the negative of the ^wnounr"- 



(ASK Ten-object GRADUALLY GROW Tinwunt) 



99 1 



(ASK Tan- object GRADUAL LY SHRINK Tinount ) US 7 

This works a k* like the gradually messages for going forward* turning right and the Uke. 
Thr object wjll grow (sbrink) at most the amount of its "growth-speed - ind IF anything is left will 
plan to da it liter. 
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Gradually Changing; the -Value of s Variable 

I 
(ASK ? an -object gradually CHANGE YOUR 7varltble TO 7ncw- value) gey T to T 

This will gradually change any "variable" tn a "new-value". The speed of the change il 

given by the variable (.variable speed) or assumed be I if none n provided. If you want Sally to 

slowly grow to 300 at a rate of 30 units per second (by default there ii one tick per second) then 

type 

(ask sally set your (size speed) tg 30) 

(ask 59lly plan- next gradually ChftnflG your size to 300) ;; ^ai to change size 

(ask sally Keep doing until nothincj^mare-tD-da tick) ;; k*tp Striding tickf UMU /InisAet 



(ASK ?an-ohJEct GRADUALLY INCREMENT YOUR Tvariable BY ^addition) flty 7 by I 

This is like the previous one and U denned to gradually change the "variable" to its current 

value plus the "addition". The only difference between the following two ways of making Salty 

grow is that grow uses "growth -speed" while "gradually Increment your ,.. * usei (siie speed)- 

(ash sally gradually grow 200) 

(ask sally gradually Increment your size by 200) 

Penis 

When an object moves it can leave a trait behind itself. It does thii by falling back upon the 
TV Turtle. The commands that are currently available are pu, pen up, pd. ptndown* erd, 
eraserdown, xd h xordown, ku or Kurup. They have the same meaning as described in the LLogO 
memo [Goldstein I9f75l 



Peejo- 37 



Dimeter GLtidW Special VeriHblas Kannath Kahn 



Special Variables 

We have already seen a few vfmablei that Objects treat specially such as "heading", "state". 

and "posilion h . Also the argUmcnls for drawing given in the "when drawing uh ..' message arc 

also special variables. They are defined to cause the Object in question to disappear if visible and 

then to reappear with a new appearance. This is a«ampl($rped using the "actions- Jf-cri*nglng* 

varlabte demons described earlier arid esplains why setting the variables "siie" or "*n^le" of a Poly 

causes it to change. 5 jppase Bob is a square and you want him to become a triangle of size 200 

then j;u^E type 

(ask bob change your *nole to- 15G) ij hrain* a (riflti£jtf 
(ask bob change your size to £00) 

There are a few other special variables associated with objects that you might want to set 

sometimes 

af te.r -show-action is a iwiabtt uifittSe fit/unit vatui is nil and is abbreviated as ass 

This contains the action to be performed after' the object has finished drawing itself, The 
turtle Is ftt the center sn that shading Is posiiblc here. So to shade in Sally with a checker pattern 
(for more about shading see the LLogn memo [Goldstein Wbty you type 
(ask sally change your after -show-act ion to (shade 'checker)) 

after-hide-action ^j a variable whose 4tfau.lt tfxhir is n t 1 and ts abbreviated as aha 

This describes the action to be taken after the object has erased lUelf, If yxro want Bob to 
print a message every time he hjdes then 
(ask bob change your af ter-h 1d*-ftCt1on to {type '(try and find ma now))) 

era.iahl 1 Ky is a tmHable whaSt default value is t and is abbreviated as eras 

Director has two ways to erase art object, either redraw it with an eraser or erase everything 
in the region of the object Only if the object's erasability is nil it the latter action performed. 
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This is necessary if the appearance is shaded for example arid Li often faster If the drawing Is 
complex. Sally'i problem now that she is checkered is that she can't be erased by redrawing with 
an erasei .so yon should type 
(ask sally change your firasabtlity to nil) 

center-offset it a variable wh&it default value is nil and ii aitbmrtattd as co 

Director a«umei that an object should be ihown, turn, grow, etc, around its center- The 

center-offset is evaluated before these actions are talen tq allow you to change this. If you want 

Bob to be a Flower thai turns {or grows) not at his center bill bit base then try 

(ash flower make bob) 

(ask bub uhunge your c«nter-of fset to ( forward (tsk bob recall your size))) 

(ask boh show} 

(ask bob r ngiu 30) ii nutUe the diffttemt if yaw tu&te arwther flamtr and have ii turn 

Colors 

If you want to change the colors of an object you use cart the "change your ..." message. If 
colors were mentioned in the 'When drawing Use" message then this Will Work automatically, The 
list of possible colors is in the Lisp variable H ;colors" and others can be made at described in the 
LLogn memo. Ef you want to &Ee a smooth transition from one set of colors to another you can Use 
the following message. 

(ASK ?an-0bject CHANGF yotlR COLORS TO Tcolgrs. IN Tnumber TICKS) cyct 7 In 7 ticks, 

The number of tutors before should be equal to those after. Each color is slowly changed Do 
the Color in the corresponding position in "colors", Only l/number of \he. change will occur, the 
rest wiH be planned for later. Of course,, if you are net running the color system then these colors 
will all Jook white, but internal variables cart be inspected to see that indeed the color is being 
"changed". 
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( ASK 7«n -object PREPARE TO MIX COLORS WITH father -colore) ptKW f 

The number of "other'COtor.f should be Ehe same M the current color*. This message J*ti Up 

a variable called "ralpp-mi*" that controls [tie mix oF the old Colors With the "other-caton.". If 

"color-miK* is set to 0.0 chen the old colon appear, If It |j0 then the new-colors, dF he is _5 then they 

are mixed. 50-50. This message is used to define the previous message a* follows 

{ask object 

do when recdvlnfl (Changs your colors to rtdlors. in 7numher ticks} 
(script: («sk :ss1f prepare to mix colors with , colors) ;; prepare the nix 
(ask :self set your (color-mix speed) to ,(//* (float number))) 

; ; TttiptOtai 6/ niiiuter is tuAat tAtmitt be darte eacA tick 

(ask :self gradually increment your color-mix by I , □ ) ) ) 

; ; en tath tick totor-mlx is uwrtmtnud by the (cotwmix spttd) 

For example, 

task sally change your colors to (red white- blue) in 5 ticksj 

\i the same as typing 

(ask sally prepare to mix dolors with {reel white blue)) 

(ask sally set your (color-mix speed) to .Z) 

(ask sally gradually increment your COlnr-mlx fay 1,0) ;* (f starts off of Q 

Interpolation 

Sometimes you want an object's shape to slowly change to another shape- In Director you 
■can create an actor that is the titttrpdatUnt between [he appearance of [WO other actors. 

(ASK ?an-obJOCt HAKE ?rtane IHTFflPOLATION TO ? another -object) 

This returns an actor named "name" thm is the interpolation between "an-objMi* and 
"anothcr-object". This actor Is an object that you tan tell to grow, turn or whatever, it h» 
associated with L[ a special variable called "amount'. Amount li initially £ which means that the 
appearance should he exactly between the two appearances 0.0 Will make it look like "an object" 
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and 10 the appearance of "a rtother^objcci". Very interesting raw fa occur If you try negative 

numbers or numbers greater than one 

(ASK ?an-object HAKE INTERPOLATION TO Tanotner-ubject) ■it* T 

Same as the previous one only Director picks a name of the interpokiLtcm for you. To make 
a simple mnvie of a Circle becoming i square try the following 

(ask poly make circle) 

(ask circle set your angle to 10) u wtli Smk ttk* C circle tetf will trill? be a H-9§m 

(ask i.'Uly njki? square) 

(ask square set your angle to 90) 

(ash circle make circle- to -square Interpolation to square) ;; make the interpolation actor 

(ask clrcle-to-sqifare set your amount to 0,0) ;; itarl off lathing like a circle 

(a*k etrcte-to-square set your (anount Spaed) tn L QS) 

(ask circle-tc-SQUCirH gradually tncrmtflnt your amount by 1.0) 

(ask clrcle-to-square show) ;; needs to be viiiMt If we're gdng to make a mevit of It 

(ask movie make Cts-mcvle) ;; mottles art delinked in a later tectum 

(ask cts-mevle film the rtext £0 ticks) ; ; tend out 20 tUki recording oj you go 

(ask Cts -movie project) j: filming U ptw 10 project yourstff 

This transition will be linear If you wanted the raw of change to increase just enter the following 
before running the movie, 

■ 

(ask circle-to-square set your ({amount speed) Spaed) to ,01) 

; the a*l«*nr speed Itirff fats a tpetfi„ neat (it the acceleration) 

(ash circle- to -square gradually charts your (Amount speed) to ,25) 

Treating Objects ms Turtles 

It is possible to have an object behave as a turtle and run turtle procedures. To do this use 

the following message pattern 



(ASK Tan-objact RUM faction) 

■Action" can be any turtle command, procedure, or sequence of them beginning with the 
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word "script", ir you want an object named Sam to go forward IQO, turn right 15. and then follow 
Che course or a circle then you could type: 

(ask sain pen down) ; j /o j« Aij trttti 

(ask sain run script: (forward iqdj fright 45} (drjw-poiy id 10)] 

where draw-poly is a Lisp TV Turtle program. 

Appearance Definition Using Instant Turtle 

Another way of creating appearances for abject* Ji by using a mod* called "instant turtle". It 

kt entered by typing <ir>st»n() and is exited by either type *q H or control-g. The idea is to enable 

you tn "draw" on the screen by having the turtle move u your every key stroke Most nngle letters 

cause the turtle do something or to define the current Image as either an actor, procedure or the 

definition of single character. Numbers are given to it by typing them before ihe lettEr command. 

If no numbers are given then the numbers last given to that letter are assumed (or I ir it Is the first 

time that letter IS used). The mode IS ietf-documenting jUH type 

( Instant) 

Wei trine to Instant Turtle :; Ami ii viUi mill welcome ym ntfan it ts Tta<tj 

r ; * -<?u type f ar\4 Mffl any tetter or an $■ for kelp <w all comrnandl 

and each character witi describe itself Note especially the V command for naming the picture as 



an actor. 



Nan Standard Appearances 

The default appearance handler of objects- assumes thar the Lisp program given in the 
"When drawing Use" message consists of turtle commands such as forward, right, left; and back. If 
you want a special kind of appearance you need to define an appearance handler that takes at least 
two messages "Display* and "Erase" If you Vrant even lew help from the system then you can 

define your actor to aceppt "Hide" and "Show" messages but this Is net recommended. Suppose you 

want an actor that diipJays text then you could define ll as follows: 
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(define te*t object 
(set your text to [No text given |) ;; provide a default text 
(set your font to tvfont] ■; default fvnt is this m* 
(set your a clearance -variables to (text font));s nttded only for mwttt 
(do when receiving 

({or dismay erase }) ;; if J At. meisagti U tither display or erase 

(penup) 

(setturtle (ask :self recall your state) J ;j move the turtle to state 

(lontprinc (ask :self recall your text) ;■ print tht text in the font 

(ask :ie)f recall your font)))) j; prtnts if blank, atht-rwUe. tmiti 

This is the minimum needed to define a tent of any Font, or position. Vou might want tht 
Screen to reflect changes in the variables "text" and "font* The "actions-lf-changing" variatalej 
(described in shp earlier section oh demons for vat tables) can be used far this as Follows 

(ask text add (script: (ask screen wipa) :neri-value) 

ft can't trait old appearance easily so trait everything and rtdraai it all 
to your Hst of (text actions-lf -changing)) ;; if text it changed 

(alk text add ( script i (ask screen wipe) :new-veVut) 
to your list of (font act lons-1f- changing)) 

We can now use the new text definition. 

(ask text make label? 

(ask label show) 

(ask label change your text to (Here I am|) ;; So it btcomtl the uiotdi hen t am 

(oak label forward ZOO) jj to mow it f toward 

The "text" aHor in Director is defined is described here with the ability to display the text in 
various fonts The fonts bare to be made by "windage" which i* described in ai:libd«;fwrniVe 
kenl. If you wanr vou can jse a font called ul& (about 3 limes bigger than normal) and it will 
automatically be loaded in. Fonts are loaded in automatically if the font name hat a 
"font-autoload- File" property. So if you type 
(ask label change your font to trlS) 

the text will be displayed in that font. 
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V. The Screen. 

i 

The Screen a«oi provides the interface between the world of actor* and the TV Turtle 
display area. There is currently only one "screen" though the system could be extended tc+ have 
multiple screens. To see them on different physical display is another question. Much or whit 
Screen does you need not bother with. The messages of some use fcilow. 

(ASK SCREEN SILENT KUNMING) sr 

This makes the Screen "pretend" to do what its tobd hot not to show anything on the TV. 
This IS useful mostly for making movies, but also if ant want! to do many thing! And theft see the 
final it-suit. For example, if it takes a while to draw an object you may not want to see it erase- and. 
redraw as you tell U to go forward, grow and turn. You could always hide the object first but if 
there are many objects then It is easier to use this. If, while DitectOT Is running, you want the 
Screen to run silently you can type Control a at any time 

( ASK St REE H NORMAL R UN ft J N G ) „,. 

This tells the Screen to Stop running Silently and also to wipe as described next. This 
message can be sent to Screen by simply typing control r, 

(A5K SCREEN! WIPE) 

This wipes off anything from the Screen and then redraw! any object* that should be 
visible. This is useful if a message or something messed up your display area. 

(ASK SCREEN CLEAFSCREEH) CB 

This tells a ll the actors to hide, so that the screen becomes blank, 
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h^oht tt a variable whoie dtfauit value it 200 

Igjdth ti a Variable tahott default vaiut it 55 Q 

The height and widlh of the screen is controlkd by iu variables "height" and "width". If 
you want a square Screen *Q0 big [hen type 

(ask Sfcheen set your height to 400) 
{ask screen s&t your width to IDB) 

visible-Objects is a Uatiabte uriut tttfttdt value it nl I finrf |j stotti&aieA at vo 

This is a hit that Screen (ceep* of actoti it think* should be visible. If you forget the name 
Of someone Oil ihe screen then look at this variable. 
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VI- Universe 

Universes instances of Universe) are the attors responsible fot khowing who want* rlckl 
messages. Any actor that has planned anything has toW its universe that tt has something to do. 
(The H p 1ar -" messages handle this and all actors inherit tries* from Something.) The only thing 
that you ne«l ask Of a universe is to run when you want all the planned activities to Occur. Each 
actor is asked Tor its "universe" when planning and unless told otherwise inherits from Something 
one called "default-universe". Telling a universe to run is nat recommended when the display Ji 
involved instead Movie should be asked to "film". (Movies are described In the nest section) 

(ASK ?a-Lrnlvsrse HUN FOR ?lEnoth TICKS) 

Send tick messages to each actor witn something planned "length* number of times. So to 

run through a scene WLth Sally and Sue both growing you could type 

(ask stilly plan next gradually grow 300) 

(ask sue plan after 2 tlcfcs gradually grow £&Q ) 

(ask sally plan aftar 2 ttcks print namory) ;; tv stt uAai*s happening to Saliy 

(ask sally ask your universe to run for 4 ticks) 

;; unit Si told QthtfWlH Sue and $ally Hvt in the lamt univtrst 

aetors-to-run~n&xt *j g vartabit uiAoit default vaiut a nl 1 and is abbreviated <tt mtrn 

This variable is kept by a universe and should he a Hit of all actors in that universe with 
anything planned 
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VII. Movie 

Mnvje can also be [aid to run and. its major difference from Universe is that movies manage 
to remember any changes to the screen. Movies can then be asked to play back at a speed that Is 
typically much faster than when first created, 

(ASK Ta-novle FILM lHt NFXI Tf llm-lenoth TICK5 ) ftn T tick* 

This is similar to th* "run for . ." message for instances of Universe, however movies 

(instances of Movie) also record what's happening Co the display. To create a movie named 

Fantasia V?. ticks long 1 one need only type 

(ask movie make fantusli) 

(ask fantasia film the next \l ticks} 

AH objects that arc currently On the screen or pkan to appear during the next 12 ticks will be in the 
movie. 

Franes-pflr-SQCOnd if a variable bjAo« ritfautt ualut. it 1 and iJ cbtftJXicUd ai f PA 

Sometimes you may want to MB the same movfe but with more frames and test change 
between frames If yotl used "gradually" commands described above then you can control the 
number of frames per second. Remember that the speeds of % raduatly commands are in units per 
second. If the display were fait enough setting the number of frames per second to 20 or 30 and 
projecting at that rate would make the movement very smooth. To project many frames per second 
see the messages described later jn this section. ]f you sec Fantasia's frames-per-iecond ta 4 and 
had it run for +S ticks instead then every founh frame will be the same as before and the others 
wilt show a smooth transition between the frames. Yau can think of frames-per -second as the 
Speed with which the "camera" shoots the action The default value for frames per- second, ii I. 

tlcks-pcr-frame. H a variable vthoit default ualtrt it \ and tl abbrtvOlttd 91 tflf 

If you want to film just every 5th tick then set the movies "licks-per-frame" to 5. This is 
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primarily useful if y™ want a ikt to be a small unit for accuracy and y« don't want to vk *>r 
record every tick. 

USK 7a-movie FILM SECRETLY THE NEXT ^length TICKS) f stf1 ? ticks 

This does the same as the prevpoui message in that all changes to Screen arc record Hi except 

here they art not displayed This is useful if you want to tave the time of displaying changes cm 

the screen dr to free the terminal to do something else (t.p edit a file) while the movie is being 
computed. 

There is a wide selection of different messages asking a movie to display itself, They ar*. 
(ASK 7a -movie PROJECT) 

; Show nil the framti from the sfati not tklpping any 

(AS* ?i-mov1e PROJECT FRftH' ^ eo ln To T <,„ d SHWIH& EVERV 7»o-fllthy) pf» f to Sft 7 

■ Show pom frame number BEGIN (o EHD skipping eVtrj SOM ANY framei. 

{ASK 7ft -movie PROJECT FRANE5 Tbcgln TO 7end) oJ r to T 

; ajJittfj* r^al flfl/rim*j jAahM fip skipped 

( ASK 7a-mov1 e PROJECT 5TMTTHG AT FRAME 7beg1n SHOWING FVl KY 'so-nany) ptftt Tt«t 

; jrtow until the md of the mfnefiom B£GtN thmlng every SO-MANf framts 

{ASK ?a -movie PROJECT SHOWING EVERY 75D-manyJ 0SB f 

i starts el the beginning end goes tp (At fjirf showing every SQ-M AMY fram* 

(ASK ?a -movie PROJECT FRAME 7number) pf f 

~, jttit sAtiw that one frame 

speed I i a wrtabtt whose default value Is 99999 

Movies have a speed which indlCAWJ how many frames per jewnd should be displayed. 
Unfortunately the compoter seldom can show more than a small number per second , The speed 
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may be less (had one if you want very Slaw motion. If the machine can not display frames 31 fa« 
as indicated. {for example if the speed u the default of 99999) then It Witt just show them "as fast as 
the it can'. 

new- frame - ac t ion (j a iitjria&fc mAflM Jtf/iat^f v&tut it i 1 1 oar screen ) and is abkrtviattd at nfa 
Another variable associated with movie* h oiled the "new-frame-actlon*. This provides 
instructions as to how to mate the transition between frames. The default is (CLEARSCREEN) 
which: jusr clears everything off tine screen. The value of this atom is evaluated jo If it is NIL then 
nothing will happen and you will *w all '.he frames superimposed 00 the screen. One useful value 
is "erase-old" which redraws the frame with the eraserdown. Sometimes this is faster. 

(ASIC ?e -nov 1 e SMART con p j le Xf i 1 e- name ) Sc K 

This message will create a file of Lisp cade that can then be compiled. The resulting movie 
projects the same as befoie hut can run Faster and be laved. To run the movie, load it into your 
Director and call the function "PROJECTEIHXJM PILED-MOVIE' (abbreviated PCM). If you 
call it with a ? it will print out a description of the argument* it expects, and their defaults. So to 
save the. movie My-f irst-filin as ffilm >, compile it and then run it do the following: 

{ask my-flr&t-film smart compile ffiha >) 

; ; pat the Usp translation of my-rirsLFilin (ft tAt fde ffitm > an ymt directory 

~i ; ; Leavt Direefer 

:qCompl ffl"l« > ;; compile the film if fPU want it to run a tittle faster 

dfrect^h ;; after £impitatton It finished return to Dtrettor 

(load 'ffilm) ;; fond the compiled mpvit (FtfrJ yottr Lisp 

{PCP '1) 11 to tee the dtfaulti 

(pern) ;; to project it using tht default! 

1 contemplate emending Movie so that while projecting yw* can have the "projector" loom, 
pan, or Other filmic eflecrs. Type "(Ask Movie help)" to find out about this. Also Scripts are 
planned which will save the siate of all the plan*. This way you can save the script, run the 
movie, restore the script and then modify it. 
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VIII, A Big Example 

Suppose we want to write a space war in Director. First we will W mt to define space ihJpj> 
suns, and gravity. One way 10 do [his is to associate with each physical object another object 
corresponding to its velocity. The Velocity actors have their own position which lot responds to the 
magnitude and direction Df the velocity On every ticX each object's position is updated by turning 
it in the direction of its velocity and going forward the magnitude of it& velocity, Abo the velocity 
itself may bo updated in a simitar manner by the thrust of the ship or by the gravitational pull of 
the suns. This U« of a turtle's posKinn to represent the velocity vector Is Similar to thp approach 
presented in [Abelson 19751 Flrtt we define physical objects that will include the Space ships, and 
the suns. Then we define the gravitational field to apply the forces between the objects to their 
vdocitiej- 
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I this fite it a teit of tiirettor fit doing orbital phpict 

(Include lei ]ken;declere >|) ;■ this is needed onty if f am compiling the foUowing 
(define priyslca l-object object 
; ; make physical -object at a kind af object and send it the following menage s 
(set your mass to JO J ■; the default mast 

(extend behavior when receiving (make Tlnstance) by doing 
j ; thii t nablei mt to friend the normal behavior of rnakt 7 
(ask TSelf make , Instance) ;; create tht object as wrnnai 
(ask velocity make (velocity-of" t instance) ) ;; make « velocity for abject 
instance) ;s return the JtrWy created instance 
fdin when receiving (update your state) 

; ; when f get 3 message- asking me to update my ttite 

(ask lie If change your position to a I update my position by 

; ; by adding to my current pwitmn to the position of my velocity 
,(pos1t1gn-sun Cast jself recall your position) 

(ask (vel&clty-qf , ;self ) recall ycur position))) 
;; / ask the gravitational field <tf my locciien t{, change my velocity 
(ask oravl tationa)-f 1elj 

apply gravitational forces at 

P (ask :3e1f recall your position) to (veTc-city-pf f :self)]J 
(do when r&ceivlng (yield pull at Tplace) 

;; iq determine the gravitaticmel puti at tht pint (G-t in pur unitt} 
(quotient (ask :self retail your miss) ;; take my mail 
(square (ask : self yield distance to .place)) 

; ; divide by the tauart of my dtftanCe to the pjaa re get fore* per second 
:frames-per-sBcond ;; divide by this to get force per frame 
;t1cks-per-fraine))} t ; divide tc get force per tick 
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(define orav1tatton*f-f leld something 
; -, I never mam v? appear on Ik* screen so no need to bt ait object 
; ; make the field and send it the following messages 

(do when receiving (apply grav Rational forces it ?M«ee to 7velodty) 
; ; for me to apply the gravitational forces at a place to a tftlatitj 
(ask 3Seir exert pull* of E5 } exert the pulls of the masses not at the place 
, (remove-any-at-plite (ask :self recall your masses) place) 
on .velocity at .place)) ;; tut the velocity 
(do when receiving 

(S/Kert pulls of {If irst-mflSS Krast-of-the-nasSiS} on 'velocity at Tplace) 
; ; to exert the gravitational pull at a paint &/ Stmt manes on a velocity 
(ask .Velocity move .(naif , rtrfet-mass ytflld pull it .place) In direction 

from .place to ,(ask .first-mass rucal! your position)) 
l ; move towards the mass from the place by the pull (acceleration) al that place 
(ask :sc)f oxert pulls of .rm-ef-tha -masses on .velocity at .place)) 
\ ; and tel the rest of the manes exert themtilvet en the wloclty 
(do when receiving (exert pulls of () on ? it T) 
:i wArn there are nfl mint masses da nothing 
nil)) 

(define velocity object) ;; a vetodty is an abject t& thai is tan move in velocity jpact 

(define ship physical -abject ;; nm ft define ship* 
(do Wtie-o receiving, (thrust forward ?amoiint) ;; When I'm asked to thrust forward 
(ask (velgcity-Of ,:self) 

change your heading to , (ask isalf recall your heading)) 
; \ 1 set the heading of my velocity ft my MJrn heading 
(ask (velodty-of ,3 self) ;; aits' change my velocity by 

; : having it go forward the quotient of the thrust and my mass 
forward .(quotient amount (ask ;self recall your mass)))) 
(when drawing use draw-rocket of al«)) 
j; and I am drawn by the Dravi-rotket prattdltl* applied to my size 

(define sun phystcal-obJact ■ . j a sun is alic a physicat'objttt 
(sot your angle to 10) ;; r\mr enough to a circle (really a 36-agon) 
(set your mass to IflQ) ;f M* default mass of a sun it 100 
(whfin drawing USA draw-poly of slzo anaia)) 
;- r l am drawn using Draw paly of my tize and angle 
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(ask object ;; ft it reascTitMt to give tf&i ability to all Q&jetti 
do wtien receiving (move ?omouiit towards rposltlofi) 
(script: 
(let ((original-heading (ask :se)f reettl your heading)]!) 
; ; sane the prlginai hading 
(ask ;self Change your heading to ;; ihange hading to fait towards pomttm 

.(ask :self yield heading to h posHinn)) 
(ask :sBlf forward , amount) ;; g& fontiard t&t amount 
(H* :self set YflUT holding to .original -heading) ))) ;; r«for* drf heading 

(ask object ; ; M fltow parotid to a lint ottmrtn tie poiliieni given 
do when receiving 

(move 'amount in direction from ?bog in -posit ion to Tend"-pos1t1an) 
(script: 
(let ( (orialnal-heading (ask :Self recall your heading))) 
(ask iMlf 

sat your heading to h (headlng-from hegin-pos 1 tlon end-pea ttlon)) 
(ask ;self Forward .amount) 
(flik :self set your heading to h or 1cina 1 -heading J) )) 

Now io i«i out thai program we make a ShOH moviE. One ship will pais by * double Jtax 
system. We define tills as follows 

(define enterprise ship ;; jmJL* a ship called thi tntt'prljt 

(set your slate to (-1000 -400 90)) ;; £sif m* a[ an fnfrm/Jnjr jfarnlnj Jfaf* 
( shaw) ; ; shw WfUtf 
(plan next 

repeat (thrust fOHhWd £M} 5 times)) j; turn OT thraiters for th* titxt 5 Hell 

(dor trie sunl sun n make tv-nl 

(set your position to (0 2 00 J) ;; ttart off 200 untti flftpM tht Screen center 

(ask (velcdty-pf suaJ ) to forward 25 ) ;; Karf mt off with a velocity of 2> upwards 

(set your size to 100) jj gfw it a tin 

(set your mass to 70000QQ)) 3: anrf n 6ig hwjj 

{define sunZ sun n tk.s one tj a ftfrtf jmaJfrr and fcu maitivt 

(ask (velodty-of sunZ) to back 75) 

(set your posit loin to (60ft £00 0)) u start off may to tht right of Sunt 

(set your size to 60) 

(■sot your mass to 3000000)) 
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(ask-each '(sunl SUfl£ enterprise) plan next repeat (update your statE) forever) 
; fffj- reif ry tick send to eaeh of the t&jttti the message (update jour state) 

(ask sunl sat your after- show-action to (shads MlflKt texture)) 

; ; so that it is shaded 
(ask sunl set your eresablltty to nil) 
(ask sunl show} 

(ash sunZ sGt your ortar-shaw-action %o (shade 'texture)) 

; ; a darker fixture Jot Swh2 
(ask sunZ set your orasability to nil) 
(ash sun2 show) 

(ask tjravitationaHidu spl your masses to (sun] 5^2 enterprise));; ttH t At field about the objects 

: Everything is ready ffi go, to f* tt.it it uft make A 10 tick mtnrie. tt can bt jmti irt Figure I. 

(define tost-ftovlc-l movie 
(film the nsxt 10 ticks);; finaU'j n\nki thf movie 
(project)) ;; J^IWir tht mai* Of default speed and. ardtr 

['11 leave i! as an exercise foe you m finish the space war prg^r^fn Unfortunately, ii will bt 
the slowest space war ever created. To speed things up very much' we coukj compile our code as 
described in the nest section- 



1. Unl |:-r^i|.,*liK kI.II n^L i nflii^la la run tin l[*^ h\ midline 
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IX. Figure - 1 A Teirt of the Space War Pro^r 
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X. Compiling 

There are some very fane/ mac™ for compiling Director code into efficient Liip so that it 
will run at a more reasonable speed. There are three major optimization^ one is to compile the 
patterns given in "do when receiving" messages and database Inquiries, for example, the pattern 
(BELIEVED: (COLQR^F ?THING 7C0L0A)) 

becomes something hke the following 

; thii it the tea part $f (he pattern 

(LAHflOA (OBJECT) 
{ANO OBJECT j j it u n#t NIL 

[FO (CAR OBJECT* 'BFLIEVEO:) ;; fAf /l»f fWrrf (j 'fcttflwd. 

(CAUfl OBJECT) ;; tftr* ij a sewnd eimeni 

(EQ (CAADR OBJECT) 'COLOR-OF) ;; |J* _/1fjJ rftmtnJ a/ tht wtmd (J Wo^/ 

(CDAufi OBJECT) jj then is a secmd element of ths stand etment 

(C0DAUR OBJECT) ;; there ii a third tUmmtt of the second element 

(NULL (COR (COoADR OBJECT))) ;: and lh*U U nc fvurih etment 

(MULL (CDfJR OBJECT))}) ; ; and no third element at alt 

i this is the pari that finds the variable! in the pattern (actually mrt tompttcattd \>Ut,..j 

(LAM BOA (OBJECT) (LIST (CAR (CDOADR OBJECT)) (CADAQR OBJECT ,)) 

i : return a Hit */ tke cuhr and the tfting 

Thii compilation of patterns happens throughout the system. The ckuse patterns and the 
data base inquiries are compiled The clause patterns are also compiled into nested CONDs » 
that redundant rests are avoided. If you are curious about haw (his works create a simple actor 
and then ask it to save free description of "save Sri le name" earlier) and It will return the LJsp 
optimized version of itself. (Note thai this does not make the actor become that more efficient, To 
do rh-Tf you should type (eval (ask sue save))..) 

A more important optimisation is the compilation of message transmissions. The typical 
message will be tried by several different actors is the message gets passed along to each actor"* 
parent. Also the predefined actors such as Something and Object have very many pattern! to try 
out on the message. To slip all this computation a macro for transmission (Ask) figures out what 
action will be taken by Che transmission and substitutes that action for the transmission- For 
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pxample h the transmission 

(ask my-flrst-fllm project frames: 3 to ui 

ii replaced by 

(LET f(:SELF 'PIT -FIRST- FILM J 

(; MESSAGE '(PftDJECI FRfthES 3 TO G))} 
(I (PROJECT FRAMES 76E&IN TO ?E N D ) MOVIE | J ) 

where ChE Lisp fun«iOn| (PROJECT FfiANES 'BEGIN TO J£H[> JMOVIE ,| corresponds to the action part 
oF Movie's clause whose pattern ii "(project frames ?begin to rend)". This optimiiacion has Its price 
ill terms of flexibility. Jf Mjr firil-film is fold a new way to project thJJ Will have no affect ypon 
the compiled code whith contained the above trinimJiiion ]n practice this is not too serious linee 
Changes Co the way that Movie itself handles this kind of "project frames" message wilt affect 
compiled Code. This scheme works rihr even when the message and larger contain commit 
indicating' variables. 

What has been described so far, is the default Action for compilation when no other advice Is 
available it is possible to give advice as to how any particular message should b* compiled. 
(ASK ?*nyone COMPILE MESSAGE Tma s »g H -fora A5 IH (ASK ? target- form KriHJSsaae))) 

The compiler jjps ihls message to compile all transmissions. The target-form and the 
message-form are from the actual transmission. The "message" is an example of the 
"message-form - . This message is sen t to the target when incrementally compiling \ 2% described 
below). Otherwise the actor in which the transmission is embedded for Something if there is. 
none) is sent this message The following ii a simple example of this ability tn give the compiler 
advrr.r 

(ask fnacros-Df soma thing J do irfhen receiving 

♦ ; tt parallel pannt-tfftpnng struttare ii kept be finning with the atom macrot-ef 
(Compile mfisiiqe (recall your parent) as in («sfc Ttarget-f ortn S) J 
■"(parent-Df (ector-or ,t«ratL-fi>nii))) 

Using this advice the transmission 
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(ask , Slums -at- tor recall your parent) 

wilt compile to 

(PARFNT-OF (ACTOR-OF SCttE-ACTOR)) 

There are a few macros for cefinmg "macro" receiver! for an actor. Something and Object. 

use them often so rhat messages rliat they receive are compiled efficiently. A corresponding normal 

receive it a!|so crated so that while running interpret! vely there 14 ho overhead- For more details 

see me. The cade produced In this manner is. very clOM to the Lisp one might have Written. For 

example' the transmission « 

(ask something ask eacil 0T your offspring to print nemory) 
; *j CQmfrited into 
(HAPCAR 
(FUNCTION C LAMBDA (ACTOR) 

( FANCY- PRINT '(HENDRY) 

(Oft (Gtl-ACTOH ACTOR) (AC TOR -AUTOLOAD ACTOR NIL)))))i 
(RECALL-VARIABLE '50HETHTIJG 'Of f SFRINGJ) } 



(ASK ?anyona COMPILE MESSAGE rtm&ssage) 

This provide* an easy way to see how a message would be compiled. For example, 
(ask sally Compile message Chunae your coiur to blue) 

will return 

(CHANGE -VALUE 'SALLY ' COLOR 'BLUE J 

There are two ways in which you can use the compiler On* is incrementally and all you 
need dp is to type (COHPILER-5VITCH T) and it Is turned on. From then on all transmissions will 
be replaced by their expanded form and their g&d form prefaced by the atom "Expansion*. 
(COMPILER-SWITCH NR) wj|| not only prevent new formi from being made but will dean Up Old 
expansions 

To compile ycm Director code into machine language you need to include the Director 
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declaration File into your hie. At the beginning of you file you should hive; 

(INCLUDE |AI:KENtDECLARE >|) 

Use the COMPLR when trying this. The V switch to the compiler has been added and meant to 
"cleverly" compile the transmissions, If you crealf. any acton without ujinf DEFINE then to get 
them compiled you should have the form "(COM PILE- ACTORS)" at the end dF your file. 
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XI » Odds and Ends 

Debugging 

For the most pan debugging Director is like Lisp, The -trace" message described under th« 
Something section is. hclpFol. There are lhr« kind* or break points! Liip anes, 
"ihwIdnr-happcTi" ones *r,ich indieair a system bug; or a "rw-sLich-actot" or a "bad-message" 
break. These law i wo are often eas ? to recover from. The "no men-actor" break car be returned 

-mm as follows: 

(ask sue recall your parent) 

L Warning from ASK that SUE who was asked (RECALL YOUR PARENT) Is not an actor 

;BKPT WO -SUCH -AC TOR 

( T} ;; a good way ?fl gtt some htip 

(ask Something make Sua} 

{return 'retry} 

SOMETHING 

If I had meant "sally" not "sue" then I could simply have replied (RETURN 'SALLY). Similarly the 
"bad ^message" break point can be returned from. If you fix it to that the message Is receivable 
then just return Vetry. If the message was wrong just return the right menage. Whin you get an 
error try typing V)", it might be helpful, 

Complete Description of Patterns 

A pattern can be any list structure. If an atom in the pattern begini with a V then 
anything can he in the corresponding position in the message, in addition, the Lisp variable 
whose name follows the queition mark becomes bound to the corresponding expression in the 
message. The Character "S" is similar but will match the rest of the corresponding list structure, 
and so should be used on]y at the end of a list (which can be a wo-lfcsi of course). An expression 
surrounded by curly brackets {} is also treated specially. If it begins with the word "OR" then if 
any of the following expressions match the corresponding element in the message then the match 
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continues, if the word is "AND', then a IF the following expression* must march and all th* 

bindings occur. Any other expression is evaluated and if it returns NIL the match fails, Suth 
expressions can have an item beginning with a V in it tvfakh becomei bound and then evaluated. 
For example, the pattern "jgreaterp ?h 3J{" i*il3 match any number greater than 33 and n will be 

bound to that number. An error will result if the corresponding element is not a number, however, 
so id be safR you should write the pattern as "jand fnumberp ?) {greaterp rn 33}}". 

Global Variables 

There are verjr few global variables, and even fewer worth knowing about. A few useful 
ones follow. 

:SEL F ; ; tAit it bound to the aetw mho originally received the message 

; i even if the menage has ban patted along to an ancestor to bandit 
iHFSSAGE ; ; the message in que Mm 

: TURTLE -F1LE-MM1E 

;; thii is set to the normal i» turtle and should be reset if you. want color for example 

iPRIHT-LOAD-MFSSAGES jj if NIL thin no mtssage is typed when a Jilt it loaded 

i MESSAGE -WOT-UMuERSTOOC 

i ; its tttfa* is a- function tf the target ami menage and it should 

i ; handles messages, that are not under ttfiod The default value puts you in a freak- point 

iAXTOfl-NOT-DEFIttEO 

: i a function of the target and menage called when target it not defined 

? ; i This a very handy variable, usually bound- to some help « 

I i try typing it whenever you need tame help or (?) tt print f mart nicety 
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To make life a little easier there Is the "define" macro for defining new actors. Far example 

the definition of Paiy is: 

£ DEFINE POLY OBJECT 

(SET YOUR ANGLE TO &BJ 

(WHEN DRAWING U5L DRAW-POLY OF {SIZE AN6LE))} 

You type the name, iti parent and ttien a list of messages to be sent to this newly created actor. 
There is a variant of define called "DeflM-tr-add-Eo-a.ct.Qr" that differs only In that If the actor 
already exists it adds to it, while "Define" will clobber the old one. 

The Lisp p red Rate "Exists?' of an aclor return! NIL if the actor does, no* exist. "Actor-or 
returns the internal representation of an actor if you are curious. There are also slight variants of 
the "ask" macro. Tb?y differ primarily In either how errors are handled or code it compiled. 
They are 

ASK-IF-EXTSTS jj just tike ask except rtturns NIL if tartjtt rfo« nor, exist 

ASK- JF- UNDERSTOOD ;; ask hut nturtii NIL if mtttagf nut itndtTitwd 

ASK- IE -CAN ;; return A//L if either* aclpr nut defined or message not under stood 

UNCQMPILED-ASK ;; norma! ask but it nttf to be compiled 

ASK -ALL ; ; ask all actors jahost nam* matches tht target 

i : tg (ask-all (compiier-fQT 7} print memory} ti git all the cvmptftrt to print 

00- AS -IF -YOU -WE RE :j Acs tw> targets, the fir a is tht one to be used for compilation 

\ i for example, (do-ayif-yoti-mere object Mdy grow ItJO) 

Vnu can define your own abbreviations by using "deflne-abbrevtatton" which itself is 
abbreviated "da" If you are often asking S*l]y low of things then to abbreviate "ask sally" just 

enter 

(Ada saT ask sally) ;; sal should be an abbreviation for ask salty 
(*sal Srjcnj :: Test it mt t this it same as typing {oik sally print mtmOry) 
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Discussion of Why Director Is the Way ft* is 

Director is the w a|r if ls mDMf ^ because , am t fan rf obJKt . onerilw3 prDEniniming for 
graphics its seems the most natural W *y of flunking about «hlt happens or, a display «reen For 
knowledge-based programming the amuj*. gf a database with each actor and the inheritance 
mechanism are v, rr handy More Important!,, the ability to arbitrarily mta data and procedure 
{and different forms of each) J* a great convenience for represent^ „ raplM knowledge For 
knowledge-based programming (he spectrum of ftesibiUtj is m«|y spanned by the variable* the 
database, [h c var.ablc demons, the databa* demons, and the m^, reccing - al , poc^rliHr 
u«bfe by the same actor. The* feature ta(l MttlraUy to yEry m ^^ ^^ ^ ^ ^ 
advantages that that bring*. 

The graphic! in Director is very strongly influenced by turtles. Director 1 * objects are 
generalized turM« that can .hang. appearance and remember tbing, m addicon t. the u*u a | turfle 
actions Th* pseudo-para llehsm b ai ed open ticks ii | n Director to ease the task of coordinating the 
action* <rf several different object* "at once". For more about fck. t* [Kahn 1978] and among 
many f Pap m 1971,1 [Papert IMibl [Goldstein ts%L [Goldstein 197*! and [Kahn 1977b] are good 
sources far (earning more about turtles. 

One design decision that m^ stride many ai pedlar is the verbose style of programming in 
Director. The advantages are many Programs need f BW comments smc* the cod. is totf close to 
English. Debugging is aided by the long, tfpirafly .elf-e^natory, m™ag« that are traced or 
seen at error break points While someone unfamiliar with Dlr«in r could not write any code. 
compared to most language there is * good than* such a person could read the cod*. The 
obvious objects to such long messages that it rotates too much typing is just plain false. 
The abbreviation feature in Direct cuts down drastically the amount of typing needed while 
retaining all the advantages since the abbreviation u expanded « read time All of the 
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abb rc-viar tons are alio an a liable for me by Emacs's abbreviation package. 3 This has the added 
feat j res of expanding a* soon 9; a sp*ce or parenthesis is typed and chat Lt requires no character 
prefix. (This is why all the abbreviations that would be »n Engl Jsb word hive an "k b at the end,) 
Another common objection to SUch English-looking syntax For programs is that users get confused 
and expect paraphrases that, are valid jn Fngltsh to be valid In the computer language. Thlj does, 
not really apply [0 Director since the user learns about pattern matching verp early on and that it 
the only mechanism For "parsing". 

Director was built upon MacLisp so that I could fall back upon Lisp For memory 
management, a garbage collector, debuggers, readers, printers, an evaluator. and a compiler (to 
machine code). The running of Liip at W levels of Director made It feasible to put In many 
costly features In "Asjc™, the basic transmission mechanism! of Director. The overhead of a 
transmission is reasonable for events of the size typically dealt with by Director. A mestage-pauing 
definition of factorial in Director, however, would be exceedingly slew (though it would compile 
pretty well), This inefficiency need not be the case with message passing languages — witness 
Smalltalk and Act I. Ideally Director should have been built Upon lUth a base Lo make things, 
more consistent — everything couid then be an actor. 

Discussion of Why One Might Want to Uscj Director 

It's both fun and good for Writing real programs (i.e. long complex movies or large M 

programs). 



1. Kmacs if. an rinTiilknt ir.iK ciUlor dcvcbprrl at ihc MIT Artificial Intelligence Lab fay Richard Sl*Llm<n 

and others* The ahlnrviJiifin p^tlcaec in Ju>iJ.f* *at (tafretapej by Eujtmm! G ("!>«-.■ ralli. 
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Gtiting Started 

Couldn't be easier (well almost), You type: 1 
^ DIRECT 

After you see the message "Welcome to Director" you (an f)>pe, lor example,. 
(DEFINE STAR POLY (SET fOUR *«GLE TO Ui} {SHOW) 

and you should «* a star appear on jour TV. Type "(?)' for a little bit of help, [f want tn uk 
only part of Director or are running it in color (in which caw you should type (run color) before 
doing anything on the screen) then type 

:LISP KEH'DIflECT 

and as you need things the appropriate files wilt he loaded. Have fun and report any problem* to 
KENaAL 



AekttowlrdFEmentt 
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1. l>aiTl da ihiK if yau arc rwl en 4 TV or arc pWnmR Hj run Direeitfr in *o|pr- 
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J^fiJffnu thai StnnethJng HaTiditi 



(MAKE fnarne) „.... .;, 

(HAKE INTERNED OFFSPRING) , 

(HAKE UHINTERNFD OFFSPRING) 

UFNFWMAKt 7hHFiB) _;..., .„....;.„.... 

(HAKE COP* ?*1b11nfl) 



— ■" ■i. L j^.. T ,„ l „ IBII ^ l4HI4r „„,„ H , l41 ml p 

'■iiiiiuiiiJb0 4 Pf ,, M ,,, UILJ iBfininiBMHtiH + i, IT1UO 

»— , inn t 

I ■ I I ■ LJ B L. , , f« r 1 p ri I IJ I L J i L. .. r-l«rPBB.Bl.aBBLJJ__ pll , IHC T 

CHAKE'sYNCWYH ?name) .„.. ,.,.,"..,, ms ? 

(CO WHEN RECEIVING ?j>ittern Action) thir 7 % 

( EXTEND BEHAVIOR WHEN RECEIVING Tpattsrn BIT DOING *£«na -act I cmi ) ....... *bwr ? bd 

(print tfoptton) ...,„.. .. „.„„ .„ pa OR &■ OR pv Ofl pdb 

(SAVE Kfile-name) * ,.,„ 

(HELPKpattern) „ m „„ ., ,...._„. 

(RECALL CLAUSE FOR Sample-message) tmmmm rcf ? 

(flEHOVE CLAUSE FOR Xiample-rnessaee) 

(TRACE Tpattarn Xactitjn) ,, 

(UNTRACE Tpattern) 

■ fcl.i6.i- ■■■|-|lllllJll.lj.^ |p|M| , |lJ|lJJH . ri[Mii|ii|jj __ rr»1BBBBBBBB 

({or CHANGE SET} rOUR Ttrarlablt TO 7r.BW-valua) , S y T ta 7 Oft Cy 7 to ? 

(RECAIL VQIIH 7 ua riabld> ry f 

(RECALL EACH OF YOUR ? V AH able-pattern ) r#oy 7 

(IHCREHEHTYOUR Wlafclo 8t rawunt } , mn lj j y 7 by t 

(ADO 7nEW-iteii TO VOJR LIST OF N1*t-flame) , , add f tylo 7 

(ADD ?r»9H-H«Di TO YOUR LIST OF 'llst-nani REGAR01E3S) add 7 tylo ? r»fl 

(REHOVE 7old- item FROM YOUR LIS! OF Tltst-ntm) .:... r«ovi 7 fylo 7 



a 

H 

■ 

9 

10 

id 

il 

12 
12 
12 
12 
13 
13 
14 
H 
lb 
16 
16 
17 
17 
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(LIST ALL TOUR VARIABLE NAMES) ( ..,.„, „...„... .„, l flyvi , (7 

(FORGET YOUR ?V4>r1able^atlern} ,_ r ? ,.. 

(HLMORIIE 71tflm) m 

L.-„r,.... + .,....,....* , moiB f RJ 

[RECALL IF AMY TTEMS MATCH 7pattern) .„„„ r | fll)n 7 20 

(RECALL AN ITEM HATCHING 7paUern THEM Taction) , r oi ra 7 then ? 20 

(CQJLFC'I ITLM5 HEHORIZEDHATCHINE Tpattftrn) .„„., ,,„ c ilmi T 21 

(FORGET ITEMS MATCHING ?pattera) r fim7 33 

(PL AM NEXT Action) „_..... Jbij ...„.„„„. pn Jt 23 

(PLAN AFTER fhunber TICKS taction) , ___ a pa ? ticks !t 2+ 

(PLAN AFTER 7number SECONDS Vm»l«« J pa ? setonds X ^ 

(PI AM flf TER RECEIVING ?eVent-patt«rn TO Tine; saga -torm) parK f lo T 24 

(PLAN AFTER RECEIVING 7*v*nt- pat tern TO ALWAYS 7muai?i-fDra0 parx ? tft ? £$ 

(REPEAT 7irtEssage ?number TTMES ) ,. . „, .„ m ^ 

(REPEAT 7m«5B9ft 'number TIHES EVERY 7 S p -many TICKS ) r H peat ? 7 to 7 tic** 25 

(REPEAT 'message FOREVER) ,...., „, 

( TTCIC ) , '. ___ 

(A5K YOUR 7var1abl« TO Xmessago ) r , iy f to Jt 

i 

(ASK FACH OF TOUR ?var into lft TO SLmessage) ...„ ftftoy 7 to * 



26 
26 
2fi 



( ASK 7a n other TO XntEs sage) [..,.„,..,., „*,„... £7 

(DO THE FOI LOWING : KMESSAGES) d%f % ^ 

(KFFP DOING UNTIL Tprftdlcate Xmessagft) ,„„ „, , kflu , % ^ 

Paitetm that Object Handle 

(WHEN DRAWING USE fdraw-procadure OF Ktfraw-args) „ ^du T of X 30 

(show) ..„. .„...,_ . .^ ...;..:.„...._.. 32 

(MirjE) „„ .. „.. v _,. „..„.__ a2 

((and Temnroand (or FD FORWARD RT Rl&HT LT LEFT SK BACK }} 7am«unt)) ..,„ 32 

PfttJB - TO 
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33 

lr ? 33 

33 
33 
34 
34 
34 
34 



(GRAOUALLY ? C omma„d Tan™,*) ,.., l flr6d , , „ 

(RIGHT-REVOLVE TdoarEEs) .... . , 

(LEFT-ft EVOLVE ?degre«a) ....„ „.. 

(GRADUALLY RIGHT-REVOLVE fdeprees* ........... ,..„„ ,,grr7 

(GRADUALLY LLFT-REVOLVE 7degrees) fllr ? 

(5ETXY ?Tiew-x ?new-y) ..„.,. „ t 

(SETK Tnew-x) ...,..„.„., 

(5ETY?ncw-y) , 

(5ETTURTLE ( 7ne«-x ? n ™-y f newhftid 1 1*0 ) > ....... t „ tt (T f TJ 

(SETHEAtllNG fnew-hfrfldthg,) iimm> ^ 

(QELXY ?de1tA-x 7delta-y) , M 

T.rirr...Lj..Lj.. rl1lrl1IIIEMNdd 

(DELY ?delta-y) ,.,, 

(CHANGE YOURSTAFLTO-?nEW-sUteJ . cyst , 

(CHANGE YOUR POSITION TO 7ne*-po&U1on) ...cypfc T 

{CHANGE YOUR HEADING TO 7head1ng» , . gyht t 

(CHANGE YOUR KCOR TO ?rmw-xccr) ..... BWlf 

(CHANGE YOUR YCOR TO 7new-ycor) ,._ cm f 35 

(RECALL YOUR STATE > ryj ^ 

(RECALL YOUR POSITION) .,,., , ryp 3& 

(RECALL YOUR HEADING) .,„..„ + r ^ ^ 

(RECALL YOUR XCOft) , „.„ ..„.„„„, ryit 35 

(RECALL YOUR YCOR) s _ ( _ ryy ^ 

(GRADUALLY DEL* 7delta-x) „ H „ lw - „ 

(GRADUALLY DELY 7delta-y) _ fldeTy ? ^ 

(GRADUALLYOEL)£Y?riEUa-X?dalt B -y) ...,., ; gdelxy 7 35 

(GRADUALLY SETTURTLE 7na W - 5 tete) , , , flStatt ? 35 

Peoe-71 



34 
34 
34 
34 
34 
34 



director Guide 



Index 



ol Pail 



Korrath Knhn 



(GRADUALLY SETHEADING ?new-bi!a<Miifl J ............. ... , tfsh ? 

(GRADUALLY SEIK 7new-x) ........... ; fl „ tK ? 

(GRADUALLY SETV ?mert-y) , h , „„., _ flJflty 7 

(GRADUALLY SETXY ?new-X Tnew-y) gietxy 7 

(GROW 7 amount) .. , 

(SHRINK fomotint) ......... » , 

(GRADUALLY GROW ?amountJ " 

(GRADUALLY SHRINK ? a mount) r 

< GRADUAL L Y CHAN GE YOUR ?var table TO ?***- vm 1 u e > ........... 



(GRADUALLY INCREMENT YOUR TvarUble BY Addition) 
(CHANGE YOUR C0L0H5 TO 7 colors IN 7n Umber TICKS) ., 

( PREPARE TO HIX COLORS WITH Tolher-color*) 

(HAKE Tname INTERPOLATION TO ?anothaf -object) ..... 

(MAKE INTERPOLATION TO Ten Other -object) 

(RUN Xaction) ..„„.,..„.., ,.,,„,, , 



M 1 

1JS 7 

fley 7toT 



.......... giy 7 by 7 

cyct f in 7 ticks 



., nltx 7 



36 
36 
36 
36 
36 
36 
36 
3G 
37 
57 
39 
40 
40 
4l 
41 



(SILENT RUNNING) 

(NORMAL RUNNING) ., 

(WIPE* 

(CLEARSCREEN) 



Patttrnt (Aaf Screen Nanditi 



ar 



cs 



44 
44 
44 

44 



(RUN FOR 7 length TICKS) 



Pattern j that Universe Manditi 



46 



Patterm that M&rie fianilts 

(FILH THE NEXT ?film- length TICKS) , ftn 7 tlcki 47 

(FILM SECRETLY THE NEXT ?1en th TICK5) fatn 7 ttekl 44 
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{PROJECT) ;.,.,. m g _ <g 

(PROJECT FRAMES ?Msg1n TO 7end SHOVING EVERY ?3Dmany) p f t T to M ? 49 

(PROJECT FRAMES 'begin TO ?Efld ) pj 7 to 7 tS 

(PROJECT STARTING AT FRA«E ?b«gtn SHCHING EVERY iMHany) p „ t r 5a ? 48 

( PROJECT SHOWING EVERT Tsn-inany) ..... . r .pM ? 4a 

(PROJECT FRAME ?ruHnr*er) __ pf ? ^ 

(SMART COMPILE Xrili^iiw) .._„ ._ M % ^ 
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XIV* Index qf Special Variables 
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Vvriabiti T"r<ia^ Specialty by SDmtlhllig 

( ?var .able-name ACTIONS- IF'BECAL L I KG) ., .„„„.„„„.„, ,.,»,.«.., ft ff(rK> Id 

( rvaM able-name AC 1 JONS- IF -CHANCING) « , (f a ic) 19 

(?f1rit-element IF- RE CALLING- I TEHS J .„„„ fj iri ) 51 

(Tffrst-elErnent ACTI0N5-lr'-HEF10RKING) , (? aimx) ££ 

"™™ . . ... J , .<.....■„ ;,.„„„... ...J.imm.. T ,. r ,.„ ^ Sfl 

parent r ,_„„„,. .....,««i«.*,.*..„.„„, . 29 

olTspMng T ,„„, „, ..„.„.,., off 5 29 

swings .., ..„.„„. _, sib 29 

descendants ,„„.. ,.„.. .-„.«**.«„,„„„...„ , das 29 

childless-descendants ,,,.. < <1 29 

Universe j unl ^ 

things- to-do-n«xt ttdn 39 



after 'Shew- action 
af ter - h 1 de -a c t i on 

erasable Ity 

tenter-offsfrt 



V anahltl Treated Speadfy by Object 



...asa 3S 

....j ha JH 

eras JS 

..-co 39 



height 



width 



I'aruttff j Treated Specially bf Screen 



45 



■■■—*■ ■ ■ ™| ..„« 45 

visible-objects ,..., ,. L1Jt . .„.;,. „.„„„, ,,., , iV o 45 
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actors- to- run -next 



Varieties Treated Spttialfy by Univen* 



etrn 46 



frames -per- second 

ticks -par- frame 

speed ,,,..._„„.. 

new- frame- action , 



Variables TrtoLtd SpectoUy ty Mov J* 



fpi 47 

tpf 47 

4fl 

nfa 49 
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